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1130 SCOPE LONP PROGRAMS 1130 SCOPF LOOP PROGRAMS : 3 
eRe Re RR RR A ae eRe a ee Re ec a Re te he Re ee ae hee a a aK oe te Re a oe a a Ke ee a ACK I 3A000020 Be ke ake Re oe Ae ak ie ok Ae a i ee he Re Re ae oe ote fr oe a ok a eK oie ok ok a ee oe ok ek eK KEK KK ZAOQONSLO 
* TABLE OF CONTENTS ' 3A000040 Le PURPIISE * ONC CARD PROGRAMS THAT PROVIDE THE C.E. WITH THE 3A000530 
* : 3A900050 * ABILITY TO EXERCISE VARIOUS FUNCTIONS OF THE. . 34000540 
* 3A000060 * 1130 SYSTEM. FACH CARD IS IDENTIFIED BY THE — 340900550 
PARAGRAPH * PAGE 3A900070 * NUMBER IN COLUMNS 79 AND 80. THIS NUMBER REFERES 3A000560 
| | * 3A000080 * TO A PARAGRAPH WITHIN THF APPENDIX. 3A000570 
le PURPOSE * «eee 8#® @# #® #® © © © # #® 8 © ® © @© @ @ 1A 3A000099 . * 3A000580 
% 3A000100 2. REQUIREMENTS * THE C.F. MUST HAVE THE 1130 SYSTEM AND A MEANS 34000590 
2. REQUIREMENTS Be ea sgi es eh igt keake 2gc cate lg es Se San er Yee see rue tae LA 34000110 * TO ENTER THF PROGRAM. | 3A000600 
7 | | * 3A000120 | * ~3A000610 
3. USE PROCEDURE Me ee Sag ee. i. Gor Saks, ee Ses oe Gey ec NS et at Ce er BRO Se 1A 3A000130 3. USE PROCEDURE * 34000620 
7 ae: 3A000140 x , | 34000630 
4, PRINTOUTS Me so a a ett Je ven Dae Se, ey et es et Be tee ee Se ve: es LA 3A000150 3.1 SETUP AND * CHECK EACH WRITE-UP FOR SWITCH SETTINGS BEFORE 3A000640 
* 3A000160 NPERATION * AND AFTER LOADING. 38000650 
5. COMMENTS Ht, ae: “igh e+ -de8 2 te? tor Heh clos Sa e,. ae a a cas” Hae Tae ce 1A 3A000170 Xe -3A000660 
% “ a : : 3A000180 3.2 LOADING * THE PROGRAM IS LOADED IN IPL. MODE FROM CARDS, 3A000670 
6. APPENDIX A * CHARACTER CODES AND CONTROLS. 2. « «© «© 2 34000190 * PAPER TAPE OR MAY BE BIT-SWITCHED IN. | 3A000680 
x 3A000200 | * | | ) 3A000690 
APPENDIX B * SCOPE LOOP PROGRAMS 2. 2 « « « © © « « « 3 34000210 3.3 WAITS * WAITS ARE IDENTIFIED BY THE B-REGISTER. THEY 3A000700 
« | 3A000220 * HAVE THE FOLLOWING MEANING, | - - 3A000710 
6.01 * CORE STORAGE CHECK 34000230 * | on 3A000720 
& 3A000240 , * B-REG 3001 RIT SWITCH SETTINGS REQUIRED. 3A000730 
6.02 * CONSOLE PRINTER 3A000250 x | 34000740 
| an 3A000260 # 3002 ONE PASS OF THE PROGRAM HAS BEEN 3A000750 
6.03 * KEYBOARD 3A000270 * COMPLETED. 3A000760 
| * 3A000280 | * | 3A000770 
6.04 * PAPER TAPE PUNCH 3A000290 * 3003 NO INTERRUPT RECEIVED AFTER A 3A000780 
* | 3A000300 * WRITE COMMAND. 3A090799 
6.05 * PAPER TAPE READER 3A000310 > * | 3A000800 
* 3A000320 * 3004 NO INTERRUPT RECEIVED AFTER A PEAD 3A000810 
6.06 * 1442 PUNCH 34000330 * .COMMAND. | | 3A000820 
3A000340 2 | 34000830 
6.07 * 1442 READER 34000350 * 3005 NO INTERRUPT RECEIVED AFTER A 3A000840 
ok 34000360 x | CONTROL COMMAND. | 3A000850 
6.08 * 2310 SEEK 3A000370 * -3A000860 
* | 3A000380 * 3006 ERROR, SEE INDIVIDUAL PROGRAM. 3A900870 
6.09 * 2310 READ/WRITE/COMPARE 34000390 * | - 4 | 3a000880 
* | 3A000400 * 3007 ERROR, SEE INDIVIDUAL PROGRAM. 3A000890 
6.10 * 1627 PLOTTER 3A000410 2 | x | : 3A000900 
* 3A000420 324 TERMINATION * PRESS IMMEDIATE STOP. IF PROGRAM STOP IS PRESSED 3A000910 
6.11 * 2501 READER - 3A000430 * THE PROGRAM MAY NOT RUN BY PRESSING START BE- 3A000920 
* | 34000440 * CAUSE INTERRUPT 5 IS ON. 34000930 
6.12 * 1403 PRINTER 34000450 a | 3 | | 34000940 
* 3A000460 325 RESTART * PRESS IMMEDIATE STOP AND RESET. PRELOADING 3A000950 
6.13 = =1132 PRINTER 3A000470 * SWITCHES MAY BE SET AS DESIRED. PRESS START. AT 3A090960 
eo | | : | : 3A000480 * WAIT 1 £4MAKE REQUIRED BIT SWITCH SETTINGS. 34000970 
© Re Ra ae ah ee ee he a eK ak ee a Re ee he he he Ke he i a a eK Ree oe ak eK 3A000490 . a . 3A000980 
| | 4. PRINTOUTS * NONE EXCEPT FOR DEVICES THAT PRINT CHARCTERS: ~ 3a000990 
, 7 *  ENTERFD FROM THE BIT SWITCHES. yin! 3A001000 
% _ — ZAOOLOLO © 
5. COMMENTS * IN MOST CASES A SPECIFIFIEND *LOX* MAY REPLACE A  3A001020 
. * WAIT TO ALLOW RUNNING WITHOUT INTERRUPT. ERROR 3A001030 
* WAITS MAY BE REPLACED BY A *NOP*. OTHER COMMENTS 3A001040 
* ~WILL BE FOUND IN EACH PROGRAM. AN INSTRUCTION 3A001050 
* FOLLOWED BY *A* WILL BE ALTERED. THIS IS DUE TO 3A001060 
* THE LIMITATIONS OF 1130 IPL MODE. THE ALTERED 34001070 
* INSTRUCTION WILL FOLLOW THE *A*. | | 3A001080 
- | i | 3A001090 
He RRR he Re hee he ae A He He Re ee ae ee a a he ea ee a ae he ae te ie ake ae ee ee ae ak 3A001100. 
DATE 15FEB6B 25JUL69 PROG ID ~03A0-0 DATE 15FEB6B 25JUL69 © PROG 1D 03A0-0 
EC NO. 420403. EC NG. 571053 PAGE LA 
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DATE | 
EC NO. 


66 
APPENDIX A 


15FEB68 
420403 


* CHAR * 1132 * 1403 * 
* A * Cl * 64 * 
* Bo * C2 * 25 * 
* CC * C3 * 26 * 
* DD * C4 * 67 * 
* E * C5 * 68 * 
* F * C6 ** 29 * 
* G * CT * 2A * 
* oH * C8 * 6B * 
* I * C9 * 20 * 
*- J = * DL * 58 * 
* «K * p2 * 19 * 
x OL * 03 * JA * 
x OM * 04 * 5B * 
* N * D5 * 1C * 
* 0 * D6 * SD * 
* Pp ™* DT? * SE * 
* QQ * O08 * IF * 
* oR * D9 * 20 * 
* S * €2 * OD #* 
* T * €3 * OE * 
* U * E4 $j. 4F 
* V * E—5 * 10 * 
* WwW * E6 * 51 * 
* x * E7 * 52° * 
* Y * E€8 * 13 * 
* Z * E9 * 54 * 
* 0 * FO * 49 * 
* 1  * Fl *® 40 * 
* 2 * F2 * OL * 
* 3 * F3 * O02 * 
* 4 * FE * 43 * 
* 5 * F5 *€° 04 * 
® 6 * FR * 45 * 
* 7 * FT * 46 * 
x 8 * FR * OF * 
* 9 * FO * OB * 
* = * 7E * 4A * 
x § * 5B * 62 # 
ek * 48 * 6E * 
* 8 * 7D * OR * 
% ‘ * 68 * 16 * 
x * 4D * 57 & 
* = * 60 * 61 *# 
* ) * 5D * 2F * 
* + * GE * 6D * 
* / * 61 * 4C & 
* * * 5C * 23 * 
* &£ * 50 * 15 * 
* SPACE * 00 * TF * 
* NUMBER *--~~--------—- * 
* AT *———-—--—--—--- * 
* LS THN *------------- * 
* LOG/NOT*------------—* 
* SEM/CLM*--~---------- * 
-* QUOTE ¥*------------- * 
* LOG/OR *------------- x 
* UNSCORE *------------- * 
* QST MK *-------------+* 
* COLON ¥*-----~----- ~--* 
* GRT THN*-----~--------* 
* EXCLAIM*—---------~—-- * 
* PERCENT *-—---=----—-----* 
* CENT  €------------- * 
* EOF *------------- * 
* ER CHR *------------- % 
* ER FLD *------------- * 
€ 0-8-2 *------------- * 
25 JUL69 
571053 


KEY/BD * CON/PTR U/C * CON/PTR L/C* 


A000 
8800 
8400 
B200 
8100 
8080 
8040 
8020 
8010 
5000 
4800 


4400 


4200 
4100 
4080 
4040 
4020 
4010 
2800 
2400 
2200 
2100 
2080 
2040 
2020 
2010 
2000 
1000 
0800 
0400 
0200 
0100 
0080 
0040 
0020 
0010 
OOAO 
4420 
8420 
0120 
2420 
8120 
4000 
4120 
BOAO 
3000 
4220 
8000 
0000 
0420 
0220 
8220 
4060 
40A0 


0060 © 


8060 


2120 


2060 
0820 
20A0 
4820 
2220 


8820. 


0008 
0004 
0002 


2820 


eee ee ee ee ee ee ee ee ee ee ee ee 


N, 
Me 


3E 


02 


/ 
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* 
x 
* 
x 
* 
* 
* 
* 
x 
x 
* 
x 
x 
¥ 
* 
x 
* 
* 
* 
rs 
* 
* 
x 
* 
* 
x 
x 
* 
* 
x 
« 
DO * 
* 
* 
x 
x 
x 
* 
* 
* 
* 
* 
x 
xe 
* 
* 
* 
* 
* 
* 
Pa 
* 
* 
* 
* 
& 
* 
* 
x 
* 
a 
* 
* 


wTrTTrTrTTTtT tT 


+ + 


3C * 

18 * 

1C * 

30 * 

34 * 

10 * 

14 * 

24 * 

20 & 

TC % 

58 x 
5c 

70 * 

14 * 

50 * 

54 * 

64 * 

60 * 

98 * 

9C * 

BO * 

B4 * 

90 * 

94 * 

A4& * 

AO * 

RK KKK KEK KKK K 
HK KK KK eK KKK 
* CONSOLE * 
* PRINTER * 
x CONTROLS*® 
He Reh ek he ke ee HS 
* CARRIER * 
* RETURN * 
* Bl x 
KKK KKK KEK 
* TAB * 
* 41 * 
KEKE KEK EK EK 
* SPACE * 
* 21 * 
MK KK eK KKK SK 
*BACK/SPACE* 
e ll * 
ERKKKEKKKKKKH 
* SHIFT TO * 
a RED * 
* 09 * 
* x 
REREKKKKKKEK 
* SHIFT TO * 
* ‘BLACK * 
* 05 % 
KKKKKEKEKEKKE 
* LINE FEED* 
* 03 * 
KEKKKEKEKEKRSE 
ae. ae y, 
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3A001120 
3A001130 
3A001140 


3A001150 


3A001160 


34001170 


34001180 
3A001190 
3A001200 


3A001210 


3A001220 
3A001230 
3A001240 
3A001250 


3A001260 — 
3A001270 


3A001280 
3A001290 
3A001300 
3A001310 


3A001320 | 


3A001330 
3A001340 
3A001350 
3A001360 
3A001370 


3A001380. 
3A001390 | 
3A001400° 
3A001410. 
3A001420 | 


3A001430 
3A001440 
3A001450 
3A001460 
3A001470 
34001480 
3A001490 
3A001500 
3A001L510 
34001520 
3A001530 
3A001540 
3A001550 
34001560 
3A001570 
3A001580 
34001590 
3A001600 
3A001610 
34001620 


3A001630 


3A001640 
3A001650 
3A001660 
3A001670 


-3A001680 


34001690 
34001700 
3A001710 


34001720. 


3A001730 
3A001740 
3A001 750 


3A001760 


3A001770 
3A001780 
3A001790 
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DATE 
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571053 


eeDHe He DH 


EEEKKKEKKEEKEKREK EKER KES EREKSESEEKERE SEL EESESTESERERCS 


* PLOTTER BIT SWITCH CONTROL 


* PAPER TAPE BIT SW & 


SEKEKEEKEKKSEEEESS RHEKCHKEREEERSEE CONTROL AND BINARY® 
we 2 | * PATTERN. DATA. * 
BIT SWS FUNCTION EHERECEESESEECESEEEES 
O AND 8 --- PEN DOWN = = #* | 
1 AND 9 --~- DRUM DOWN * 
2 AND 10 -- DRUM UP — *e "em x % 
3 AND 11 -—- CARR. RIGHT * *% * &*¢& &¢ € & 
4 AND 12 -—— CARR. LEFT * ** OF, * * © 
5 AND 13 -~- PEN UP © * *0 0. * QO % 
* SET CHARe 1 IN BIT SWS 0-5 0 0 . * 
* SET CHAR. 2 IN BIT SWS 8-13 *. 0 - 000 * 
— REREEE EEE SEEKER EE EKEESEREEE EEE "y) .- 00. * 
* : | Le 0 -0 oO 
* 0 /O 
* * 0 . 0:0 * 
PSS C PSS TEL OLS SSS Se SS ae % 0 ‘ a 
* DECIMAL TO HEX *— * 0 ° 0 * 
* CONVERSION TABLE * * ) rs * 
STS SCL S SS TTT Ste SPSS * 00.0008 
* CYL * BIT SH *# * 00.00 * 
* NUMBER) ® SETTING * 00.0 0 * 
* IN HEX * IN HEX * * 00.0 & 
EERE EERE EERE REESE * 00. OO * 
* 10 * OA * & 00. oOo. # 
* 20 * 14 * * 00. 0# 
* 30 * 1E * oe O06. * 
* 40 * 28 * * o 2.0008 
* 50 * 32 * 0 - 00 * 
i 60 8 * 3C * * 0 - 0 OF 
* 70 * 46 t * 0 .090 * 
k 80 * 60 * * 0 - 008 
* 90 #« 5A * « 0 .« Oo * 
* 100 * 64 * * 0 ° 0 * 
* 110 * 6E * * 0 e * 
* 120 * 78 * * 0.000 * 
* 130 * 82 * * 0-00 * 
* 140 * 8C * * 0. 0 0 & 
* 150 * 96 * a 0. dO . % 
* 160 = AO * * 0. 00% 
* 170 * AA * * 0 « o.0606CF 
* 180 =* BS * * 0. 0 * 
* 190 x BE % * Oe  * 
* 200 * C8 * * ‘ce 000 * 
KERKEKEEEEREEKEE EKER * e OO * 
* * - - O O * 
* 2 O * 
* * 3 00 * 
* * ‘s Oo 
* TO READ/COMPARE BINARY * e 0 * 
* PATTERN» LOAD TAPE HERE ---—* ° * 
* .* Pe ke 
* PAPER * o * 
* TAPE EKEKKEKKEKEEKESEESERE 
* CHANNEL -- 87654 3221 
* —— 
* CHAR 1 BIT SWS -- 01234 567 
* | 
* CHAR 2 BIT SWS -- 89111 lit 
* | 000 000 
* = 3 | | 
REE EERE EERE EEE KERR EEEREREREERE EEE EEEREEEE EEE KERE 
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34001800 
34001810 
3A001820 
3A001830 
34001840 — 
30001850 
34001860 
3A001870 | 
3A001880 | 
30001890 
3001900. 
3A001910 
3001920 


3a001930 


3A001940 — 
34001950 | 
34001960 | 
34001970 | 
3A001980 | 
3A001990 
34002000 
34002010 
34002020 
34002030 | 
34002040 
34002050 
34002060 
34002070 
34002080 
3002090 
3a002100 
3a002110 
30002120 
30002130 _ 
34002140 


34002150 


3002160 
34002170 
34002180 
3002190 
34002200 
34002210 
34002220 
3A002230 
34002240 . 
30002250 
34002260. 
3002270 
30002280 
30002290 


-3A002300. 


34002310 
3A002320 | 
34002330 
34002340 
34002350 
34002360 
34002370 
3A002380 
34002390. 
34002400 
34002410 
34002420 © 
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03A0-0 . 
2A 





ane 


aa 


= 


O000000C 
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6. 1 STORAGE CHECK 


Ae 
RB. LOADING 
C. WAIT 
OD. RESTART 
Fe. COMMENTS 
- onan 
0000 0 6009 
0001 90 0000 
9002 0 0000 
0903 0 0000 
0004 0 00900 
0005 0 0090 
0006 0 9001 
0007 0 NO03A 
0008 0 0015 
0009.0 603F 
000A 0 1006 
OOOB 0.ERFC 
090C 9 1906 
O00D 0 ESFA 
~—OOOE O DOF4 
ONOF O O8F6 
90010 0 COFO 
0011 0 DOF3 
0012 9 °1802 
0013 0 1002 
0014 0 90F1 
0015 0 DOFE- 
0016 0 3001 
O017 0 OSFE | 
0018 0 COES 
0019 0 18N0 
DATE 1L5FEB69 25JUL69 
EC NO. 


420403 


SCOPE LOOP PROGRAMS 


PRELOAD SWS_ 


571053 | 


ee eC ee Ce a 


ee 


SOC Oi io a dois ion iick ok tuick ddok ii ioiadoioiak ak ak ice ik dak ak ok 


14- 
= 
Da 
yx 
0O- 


ABS 

ORG 
EDX 
STGSW DC 
STGLC DC 
STGPN 
STGCR DC 


STGHL DC. 


* 
STGRD DC 


STGXX DC 


STGST 


st 


EACH CORF LOCATION IS CHECKFD WITH A PATTERN 
SET IN THE BIT SWITCHES. 
SWITCHES ARE USED AS AN ADDRESS TG BE CHECKED 
AND THE PATTERN IS /5555. 


RIT SW 15- HALT AFTER ONE PASS. 


USF ONE ANDRESS 
4 K MEMORY 


BK 
16K. 
32K 


ONE PASS COMPLETED, 


PATTERN CHANGED. 
PICKFN IS ON IN THE ACCUMULATOR. 
IS IN ADDRESS LOCATION 2. 
CONTINUE OR DO A RESTART. 


PRESS IMMEDIATE STOP AND RESET. 
SWITCHES MAY BF SET AS DESIRED. 


5 
STGST 
Ae 
Kam ok 
k— % 
km # 
x— 


79001 


JOOBA 
/0015 


STGBD 


6 
STGXX 
6 


STGXX 


STGPN 


STGRD 


STGSW 
STGHL 


2 
3 


STGRD 


STGCR | 


STGRN 


STGSW. 


16 


IPL MODF FROM CARDS OR PAPER TAPE. 


SET PATTERN OR ADDRESS IN BIT SWITCHES. 


PRESS START TO CONTINUE. 


THE BIT THAT WAS DROPPED OR 
FAILING ADDRESS 


PRESS START TO 


PRELOADING 
PRESS START. 


THIS PROGRAM WILL WRITE AND READ ALL CORE 
ADDRESSES OUT SIDE THE PROGRAM ARFA. 

FACH ADDRESS IS WRITTEN AND CHECKED 2 TIMES. 
If AN ADDRESS IS FOUND 
14 ON AND RESTART. 
SWITCHES AT WAIT 1. 

THE PROGRAM WILL CHECK ONLY THAT ADDRESS WITH 
THE PATTERN 15555. 


TO BE A PROBLEM, 


FOE OCISE ISO ISI IO IEC IASI IA IIR Ba aOR ao i Bog AIR Aka 


BIT SWITCH STG 
ADRS LOCATION 


STORAGE PATTERN 

SIZE OF CORE 

BIT 15- HALT 

BIT 14- USE 1 ADRS 
A DC /3A00 RD BIT SW 
CONSTANT 
AK LD STGXX 


* PATTERN TO USE 
* UNLESS ALTERNATE 
* IS SELECTED 


\ 


READ BIT SWS _ 
GET BIT SW SETTINGS 
SET HALT IF R 15 ON 


ADJ CORE SIZE 

STORE CORE SIZE 

SET SWS FOR PATTERN 
* OR ADDRESS 

READ BIT SWS” 
GET BIT SW SETTINGS 
* AND SAVE IN Q REG 


DO000 OOOO -¢ ena; oO 0. oO O O 


IF BIT 14 IS ON THF BIT 


: SET BIT 
PLACE THE ADDRESS IN THE BIT 


PART 
PAGE 


34002440 
34002450 
34002460 
3A002470 
34002480 
34002490 
3A002500 
34002510 
34002520 
34002530 
34002540 
34002550 
3A002560 
34002570 
3A002580 
34002590 
3A002600 
3A002610 
3A002620 
3A902630 
34002640 
3A002650 
34002660 
34002670 
3A002680 
30002690 
3A002700 
3A002710 
3A002720 
3A002730 
3A002740 


3A002750 — 


3A002760 
3A002770 
3A002780 
3A002790 


~3A002800 


34002810 
34002820 
34002830 
34002840 
34002850 
3A002860 
34002870 
3A002880 
34002890 
34002900 
34002910 
3A002920 
34002930 
34002940 
34002950 


3A002960. 


34002970 
3A002980 
34002990 


34003000 


3A003010 
34003020 
34003030 
34003040 





3A003050 © 


3A003060 


3A003070 
34003080 


3A003090 
~3A003100 
34003110 
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OOLA O COEA 
001B 0 1801 
OO1C 90 4804 
001D 0 7003 
OO1lE 0 1800 
OOLF O DOE3 
0020 0 7002. 
0021 9 18)D0 
0022 0 DOE1 
0023 0 COED 
~0024 9 DODD 
0025 0 CODD 
0026 0 00D2 
0027 0 00C2 
0028 9 1000° 
0029 0 FODC 
002A 0 AND2 
0028 0 00C2 
902C 9 FONDS 
Q002D 0 FODS 
| OO2E 9 4820 
| O02F O 3006 
0030 90 CON4 
0031 0 1801 — 
0032 0 4804 
0033 0 7006. 
0034 0 COCA 
0035 0 90D0 
0036 0 DOCB 
0037.0 9006 
0038 0 4830 
0039 0 70EB_ 
003A 0 COCA 
9003B 0 4804 
003C 0 3002 
003D 0 TOES 
~O03F O OO3E 
003F 0 C009. 
9040 90 DOCB 
0041 9 COC5 
9042 0 1008 
0043 0 NoCc3 
0044 0 CRE1 
0045 0 1808 
0046 0 DANF 
0047 0 DRE2 
0048 0 6909 
0049 9 COFE 
004A 0 0000 
004B 0 9040 
994C 0 9090 
004D 9 2000 
O004E 0 2000 
O04F O 1000 
D 03A0-0 | DATE 15FER68 © 
| 3 : €C NQ. 420403 
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RAMS 


STG7 
STGO 


STG1 LD 
STG2 DC 


STG3 


BSC 
MDX 
STGLO LO 
BSC 
WATT 
MDX 
STGPG NC 
x 
* 
STGBD LD 
| STO 
LD 
SLA 
sTo 
Loo 
RTE 
STD 
STD 
STGRS LDX 
~S$TGSP LD 


AGRIC tuk oioidok i tua toluna iii ia ici ao a aC IEG Rg RR Ra 


Dc 


25JUL69_ 


— §71053 — 


X 


1 
E 
STG7 
16 


~ STGPN 


STGO 
16 


STGCR. 


STGCR 
STGLC 
STGPN 
/00D2 


100C2 


STGRD 


(7/0002 


/00C2 
STGRD 
STGPN 
Z 
6 
STGHL 
L 
E 
STG1O 
STGLC 


STGRD 


STGLC 


— STGPG 


Pe 
STG1L 


E 
2 
STGO 
STGPG 


STGSP 
STGST 


STGRD+1L 
8 
STGRDtL 


STG2 


24 


STG2 


S$TG63 - 
STGST | 


STGHL 


STGHL 


GET CNTL WORD 


USE SWS AS ADRS 
—* YES | 
* NO 


SET ADRS IN CORE SIZE 
LD CORE SIZE 
STORE IN XR 2 


LD PATTERN TO USE 
*A* TO STO 2 0 
€Ax TO LD 20 
CHG BIT 15 
*A* TO STO 2 0 
*A* TOLD 20 
CHG BIT 15 BACK 


CK STARTING PATTERN 
1S PATTERN THE SAME 


* NO 
* YES 

USE ONLY 1 ADRS- 
* YES | 

* NO, GET ADRS 


REDUCE ADRS | 

STORE IN XR 2. 

SUB PROG SIZE 
REACHED LAST ADRS 

* NO 

* YES | 
HALT PROGRAM 

ayes | 

* NO 

LAST ADRS OF PROG 


INTTIALIZATION ROUTINE 


BUILD RD BIT SW IOCC 


BUILD STO AND LD 
* WITH XR 2 


GO TO PG 3M START 


STGXX-1-STGST 


0 
0040 
/3000 


42000 © 


{2000 


41000 


SPACE FILLER 
THE LAST FIVE WORDS ARE 

* USED FOR PROGRAM 

* IDENTIFICATION. THREE 

* FOR THE PID AND TWO FOR 
* SEQUENCE. 


OO0OO0C 


PART NO. 


PAGE 


- 34003120 

3A003130° 
34003140 

- 3A003150 


3A003160 


3A003170 


34003180 
3A003190 
3A003200 
3A003210 
3A003220 
3A003230 


.3A003240 


3A003250 
3A003260 
3A003270 
3A003280 
3A003290 
3A003300 


3A003310 


3A003320 
3A003330 
3A003340 


34003350 
* 34003360 


3A003370 
3A003380 
34003390 
3A003400 


~ 34003410 


34003420 
3A003430 


3A003440_ 


34003450 
34003460 


3A003470 


34003480 
34003490 
34003500 
3A003510 


34003520 — 


34003530 
34003540 
34003550 


3A003560 
 3A003570 
34003580 


3A003590 
3A003600 


3A003610 


34003620 


34003630 


3003640 
34003650 


- 3A003660 | 
3A003670— 
34003680 
-—3A003690 


PROG 
PAGE 


1D 


2243962 - 
3A 


~03A0-0 
3A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


“DATE: 
EC (NO. 


0000 


~ 0001 
0002 


0008 


—OO0E | 
- O00F 
“0010 


1130 SCOPF LOOP PROGRAMS | 


6.02 CONSOLE 
PRINTER 


Ae 


Be 


Ce 


D. 


F E * 


0000. 


0003 
0004 
0005 
0006 
0007 


0009 
QOOA 
000B 
000C 
000D 


: Oe OOPS ROS Oel Oo SS. 


0011 


 15FEB6 
420403 


PRELGAD SWS 


LOADING 


WAITS | 


RESTART 


COMMENTS | 


6012. 


000). 
0006. 
003A 
0006 
9000 
0000. 
FOLO. 
0000 
6010 > 
0000 


0000. 


002C™ 
1810 
DOFA 
7012 


3002." 
OOF 


1 


a BUULES 


(572053. 


RRR RRR EERE RE ERE RRS ER EEE ER EERE RE ER KE ERE ER EE 


Ve 


2e 


3. 
1. 


2e 


l. 


36 


le 
20 


Be 


* 
& 
* 
* 
* 
* 
x 
* 
x 
* 
rs 
* 
k 
* 
x 
* 
ra 
& 
& 
* 
* 
* 
* 
* 
x 
* 
* 
* 
€ 
* 
* 
t 
ak 
* 
* 
* 
* 
* 
x 
k 
* 
x 
* 4, 
* 

x 

rd 

& 


CPBGN 
CPONE 
CPBSW 


CPWRT 


. CPDSW 


CPSET 
CPCTL 


* CPDSV 


CPALT 


SET 


SELECTED. 


26. 


THE PROGRAM PRINTS ALTERNATE CHARACTERS OR 
EXECUTES ALTERNATE CONTROL. FUNCTIONS WHICH 


HAVE BEEN SELECTED IN THF BIT SWITCHES. 


AN OPTION IS AVAILABLE TO SET UP A VARIABLE 


DELAY BETWEEN XIO WRITE EXECUTIONS. 


AN OPTION IS AVAILABLE TQ HALT THE PROGRAM 
AFTER THE COMPLETION OF THE EXECUTION OF 


AN ALTERNATE XIO SEQUENCE. 


IF DELAY IS DESIRED, SET DELAY CONTROL 
VALUE IN BIT SWITCHES 1 THRU 13. 
*NOTE* SWS 1 THRU 13 ALL ON, MAX DELAY. 


SWS 1 THRU 


13 ALL OFF, NO DELAY. 


IF A WAIT AFTER EACH PROGRAM PASS IS 
TURN ON BIT SWITCH 15. 


DESTRED, 


DESIRED CHAR/CONTROL CODES IN BIT SWITCHES 
O THRU 15. 


TO RESTART PROGRAM GR RESET INITIAL PRELOAD 


SWITCH SETTINGS, DEPRESS IMMEDIATE 


LOAD IPL FROM CARD OR PAPER TAPE. 


SEE PAGE 2 FOR BIT SW CODES. 
1ST CHAR/CONTROL IN SWS O THRU 7. 
2ND CHAR/CONTROL IN SWS 8 THRU 15. 


DEPRESS START. 


NORMAL PROGRAM WAIT IF 1 PASS OPTION HAS BEEN 
DEPRESS START TO MAKE ANOTHER PASS. 


NO INTERRUPT. GENERATED AFTER XIO WRITE 


COMMAND WAS GIVEN. SEE COMMENTS. 


STOP AND RESET PUSH BUTTONS. 


SET DESIRED PRELOAD BIT SWITCH SETTINGS. 
DEPRESS START. 


LAST DSW SENSED 
IF PROGRAM LOOPS, 


IS OFSPLAYED 


OR BUSY DSW BITS BEING ON. 


TO RUN PROGRAM WITH INTERRUPT DELAY SW ON 

OR TO BYPASS THE INTERRUPT WAIT, LOAD /602D 
INTO LOCATION /002A AND DO A PROGRAM RESTART. 
TO SET UP LOOP TO EXECUTE XIO-e LOAD /602D 
002A AND LOAD /1000 INTO 
LOCATION /0031 AND DO A PROGRAM RESTART. 


INTO LOCATION 


ORG. 


0 


 CPBLD 


l 


_ CPDSW 


/003A 
CPDSW 
49000 


, 
—4FO10 


Ham x 
CPRDS 
Kam 
Km 


CPIN4 
16 

—CPCTL 
CPSEN | 


2 


CPSEN-1 


*Ax TO LDX 


Ra a a a a aE RK EK EERE RAKE EEREKERER EE 


CPRDS /6024 
CONSTANT ONE | 
BIT SW SAVE AREA 


*A* TO /3A00 RD BIT SW 


CHARACTER ADDRESS 


*Ax TO /0900 XIO PRINT 


BIT SW READIN AREA 


*A*® TO /OFO1 XFO SENSE 


SW OPTION/DELAY SAVE 


2ND CHAR SW/RESET MOD 


OSW SAVE AREA | 
INTERRUPT ADDRESS 
CLR 2ND CHAR SW 

: | 


GO CHK IF PRINT BUSY 


COMPLETED PROG PASS 
RESTART PROGRAM 


IN THE Q REG. 
CHECK Q REG FOR NOT RDY 


PART NO. 


PAGE 


34003710 


3A003720 .- 


3A003730 


34003740 


3A003750 
3A003760 
3A003770 
3A003780 


3003790 


3A003800 
3A003810 
34003820 
3A003830 
3A003840 
3A003850 
3A003860 
3A003870 
3A003880 
3A003890 
3A003900 
3A003910 


3A003920 | 


3A003930 
3A003940 
3A003950 
3A003960 
3A003970 
3A003980 
3A003990 


-3A004000 


3A004010 
3A004020 
3A004030 
3A004040 
3A004050 
34004060 
3A004070 
34004080 
3A004090 
3A004100 
3A004110 
3A004120 
3A004130 
3A004140 
3A004150 
34004160 
3A004170 


3A004180. 


34004190 
3A004200 
3A004210 
3A004220 
3A004230 
3A004240 


3A004250. 


3A004260 
3A004270 


3A004280 . 


3A004290 
3A004300 


3A004310. 
3A004320 


3A004330 


34004340 


3A004350 


34004360 
3A004370: | 
3A004380 — 


PROG. ID 


PAGE 


2243962 
4 


03A0-0 


IBM MAINTENANCE 


DIAGNOSTIC: PROGRAM FOR THE 1130 SYSTEM 


PROGRAMS 


1130 SCOPE Loop 
9012 0 COF2 
0013 0 1804 
0014 0 DOFO 
0015 0 COFI 
0016 O 1804 
0017 0 DOEF 
0018 O COEA 
0019 0 1008 
OOLA O DOEB 
001B 0 COED 
O01C 0 DOE3 
001D 0 OBF4 
ONO1E O COET 
OO1LF O DOEB 
0020 0 3001 
0021 QO O8E0 — 
0022 0 CB8ET 
0023 0 OBE2 
0024 0 DOE& 
0025 0 1004 
0026 0 4820 
0027 0 TOFA 
0028 0 C8El 
0029 0 O8DA 
002A O 3003 
002B 0 17006 
002C O 0000 
002D 0 08D8 
OO2E O DODC 
O002F O C8DB 
0030 0 4850 
0031 0 7OFB 
0032 0 C8D7 
0033 0 COD4 
0034 0 1804 
0035 O 1003 
0036 O 90CA 
0037 0 4810 
0038 O 7OFD 
0039 0 COCC 
003A O 1008 
003B 0 DOCA 
003C 0 COCC 
003D 0 4820 
OO3E 0 TOCE 
003F 0 68C9 
0040 0 COCT 
0041 0 4804 
0042 0 70CD 
0043 0 TODD 
0044 0 0000 
0045 0 0000 
0046 0 0000 
0047 0 0000 
0048 0 0000 
0049 0 0000 
004A 0 0000 
004B 0 0040 
004C 0 9000 
004D 0 2000 
OO04E 0 2000 
004F O 0800 

DATE. L5SFEB68 25JUL69 

EC NO. 420403 > 571053 

\ - =. fs 
a. Ae. = 


CPBLD 


CPRDS 


CPSEN 


CPING 


CPRET 


CPLOP 


CPWRTEL 


BUILD WRITE 1o0cc 
* 


* 
BUILD SENSE RESET 
* DSW IOCC 

* 

BUILD READ BIT SW 
* 1OCC 

* 

SET UP RESET AND _ 
* START BRANCH 
READ BIT SWS FOR 

* PROG OPTS/DELAY | 
x . 

SET CHARS IN SWS 

READ BIT SWS | 

LOAD LAST DSW IN Q 


CHK DEVICE NOT BUSY 


* OR NOT READY AND 
* SAVE OSW. 

* 

* 
LOAD LAST DSW IN Q 
WRITE CHARACTER 
WAIT FOR INTERUPT 
BRANCH TO DELAY 
INTERRUPT LEVEL 4 
SENSE RESET DSW 
SAVE DSW 

LOAD DSW INTO Q REG 
RESET INT LEVEL 
RESENSE DSW 


LOAD LAST DSW IN Q 


SET UP DELAY AND 
* EXECUTE DELAY 


D, SET UP 2ND CHAR 


een nre et th & 


CHK IF 2ND CHAR SW 

* OFF 

NO, BRANCH 

YES, SET 2ND CHAR SW 
CHK 1 PASS OPTION SW 
* 

SW ON, GO TO WAIT 2 
SW OFF, LOOP PROGRAM 


Me a A A EKER EERE EEE EEE EER EEE EEE EES 


SPACE FILLER 
* 


% % H & 


LD 

SRA 4& 

STO > CPWRTE1 

LO CPDSWE&l 

SRA 4 

STO CPOSWEL 

LD CPBSWEL 

SLA — 8 . 

STO CP BSWE&l 

LD CPCTL 

STO CPBGN 

X10 CP BSW 

LD CPDSW 

STO CPSET 

WAIT l 

XIO0 CPBSW 

LOD CPNSV-1 

x10 CPDSW 

STO . CPDSV 

SLA 4 

BSC Zz 

MDX CPSEN 

LDD CPNSV-1 

X10 CPWRT 

WAIT 3 

MD X CPRET 

DC k— 

X10 CPOSW 

sto CPDSV 

LDD CPDSV 

BOSC ~ 

MDX CP IN4EL 

LOD CPOSV-1 

LO CPSET 

SRA 4 

SLA 3 

S CPONE 

BSC = 

MD X CPLOP 

LD CPDOSW 

SLA 8 

STO CPDSW 

LD CPCTL 

BSC Z 

MDX CPALT 

STX CPCTL 

LD CPSET 

BSC E 

MD X CPALTE&3 

MDX CPSEN-1 

DC 0 

DC 0 

DC 0 

DC 0 

DC 0 

DC 0 

DC 0 

DC 10040 

DC 4/9000 

DC 12000 

DC 42000 

DC 4/0800 
ers ee 


THE LAST FIVE WORDS ARE 
* USED FOR PROGRAM 


* IDENTIFICATION. THREE 


* FOR THE PID AND TWO FOR 
* SEQUENCE. y # 


PART “NO. 


PAGE 


3A004390 


3A004400 
3A004410 
3A004420 
3A004430 
34004440 
3A004450 
34004460 


3A004470— 


3A004480 
34004490 
34004500 
30004510 
30004520 
34004530 
3A004540 
34004550 
34004560 


3A004570 
3A004580 


3A004590 


3A004600. 


3A004610 
3A004620 
3A004630 


3A004640 
34004650 


34004660 
34004670 
3A004680 
34004690 


_ 3A004700 
3A004710 


3A004720 
3A004730 
34004740 


3A004750 . 


34004760 
3A0047TT0 


| 34004780 
34004790 | 


34004800 


3A004810 


3A004820 


3A004830 | 


3A004B40 
34004850 
3A004860 
3A004870 
3A004880 


3A004890 


3A004900 
34004910 


3A004920 


34004930 
34004940 
34004950 
34004960 
34004970 


34004980 


3A004990 
3A005000 


34005010 


PROG ID 


PAGE 


2243962 
4A 


-03A0-0 
GA 

















420403 


571053 





420403 


971053 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NOG. 2243962 IBM MAINTENANCE DIAGNOSTIC. PROGRAM FOR THE 1130 SYSTEM PART NOw 2243962 
: | . | | | PAGE 5 | | | | PAGE oA 
1130 SCOPE LOOP PROGRAMS © 1130 SCOPE LOOP PRNGRAMS | | : = 
ESE C AC TCE BA AK AK ROR AREER RE 34005030 OO1B O TO1A MDX KYSET NO, RESENSE DSW > 3A005710 
| 7 34005040. O01C 9 O8EB KYROW XID KYRN YES, READ LAST CHAR 34005720 
6.03 KEYBOARD % Le THE PROGRAM SELECTS KEYBOARD AND DISPLAYS 3A005050. 9001D 0 OREB X10 KY SEL SELECT KEYBOARD 3A005730 
* ~ THE CHARACTER READ GR THE eo SENSED WHEN A 3A005060 NOLE O COFS5 | LD KYDSW CK IF CHAR/DSW IN Q 3A005740 
x KEY IS DEPRESSED. . 3A005070 QO1F 9 LOOF SLA . 14 . . x ; 3A005750 
* 2e THE PROGRAM ALSO CHECKS THE INTERRUPT REQUEST 3A005080 0020 0 4828 BSC £7  & | 3A005760 
x KEY OPERATION. 34905090 0021 0 7OERB MDX KYDCH DISPLAY CHAR IN Q 3A005770 
* 3. AN OPTION IS AVAILABLE To HALT PROGRAM BEFORE 3A005100 0022 0 C8E7 KYDSP LOD KYKEY DISPLAY DSW IN Q ~3A005780 
Eo A KEY IS DEPRESSED, OR LOOP IN A SELECT 3A005110 0023 0 7012 M1) xX KYSET GO SELECT KEYBOARD 3A005790 
* KEYBOARD AND SENSE DSW MODE. 3A005120 90024 0 TODE KYBLD LO KYBSWEL BUILD I0CCS AND 7 3A005800 
* 4. SEE PAGE 2 FOR KEYBOARD CHAR CONES. 34005130 9025 0 1008 SLA 8 * RESET/START VECT 3A005810 
| * | 34005140 0026 0 DODC STA KY BSWEL * | 3A005820 
Ae PRELOAD SWS * NONE, SWITCHES MAY BE CHANGED AT ANY TIME. 34005150 0027 90 COND . LD KYDSWEL x 3A005830 
| ; * 3A005160 0028 0 1804 SRA 4 x ~~ 3A005840 
Be LOADING * LOAD TPL FROM CARD QR PAPER TAPE. 3A005170 0029 0 DODB STO KYDSWE1 * 3A005850 © 
* 3A005180 002A 0 CODC LD KYSFLEL * 3A005860 
Ce. WAITS 1 * SET DESIRED PROGRAM OPTIONS IN BIT SWS 14 AND 15.3A005190 002B 0 1804 SRA L x 3A005870 
; . * 14 ON -- DISPLAY LAST CHAR READ IN Q REGe 3A005200 002C 0 NODA STO - KYSELEL 3 3A005880 
* 14 OFF —- DISPLAY LAST DSW IN Q REG. 3A005210 002D 0 CODB | Ln KYRDEL * 3A005890 > 
x 15 ON -- WAIT AFTER EACH PROGRAM PASS. =3A005220_ Q02E 0 1804 | SRA 4 & 34005900 
ot 15 OFF — LOOP IN SELECT KEYBOARD AND SENSE 3A005230 Q02F 90 DODS sTO KYRD&1 x 3A005910 
* | tad DSW MODE. 3A005240 0030 90 CoOD3 : | Ld KYDSW % 3A005920 
* DEPRESS START. 34005250 , 0031 0 DOCE © — §TO KY BGN * ao 3A005930. 
= . aa 7 3A005260 0032 90 3001 KYRST ou 1 SET PROGRAM OPTIONS 3A005940 | 
2 * NORMAL PROGRAM WAIT IF BIT SW 15 IS ON. SELECT 34005270. 0933 0 08)D2 X10 KYSEL SELECT. KEYBOARD | 3A005950 
* LIGHT SHOULD BF ON. 3A005280 0034 0 1010 SLA 16 CL LAST CHAR KEYED 3A005960 
* LAST CHAR READ AND LAST DSW ARE DISPLAYED IN 3A005290 0035 0 DOD4 ST) KYKEY * 3A005970 
* ACCUMULATOR OR Q REG, DEPENDING ON BIT SW 14. 34005300 — 0036 0 08CB KYSET X10 KY BSW. RD BIT SWS FOR OPTS 3A005980 
* DEPRESS NESTRED KEYBOARD KEY OR DEPRESS INT. REQ.3A005310 | 0037 0 COCL | LD KYDSW CHK IF SEL/RD LOOP 3A005990 
| | : = | | _ 3A005320 9038 0 100F : SLA 15 | 3A006000 | 
De. RESTART * 1. TO RESTART PROGRAM, DEPRESS IMMEDIATE STOP 3A005330 9039 0 4810 BSC _ * OPTION IS SELECTED 3A006010 
. * AND RESET PUSH BUTTONS. 3A005340 003A 0 TOD? MDX KYIN4GE1 YES, GO SENSE DSW 3A006020 
. * 2. DEPRESS START. 3A005350 0038 9 C8CE LDD KY KEY DISPLAY CHAR/DSW IN Q 3A006030 
: Mb 8 : 3 3A005360 Q03C 0 3002 WAIT | Z DEPRESS DESIRED KEY 3A006040 
E. COMMENTS * 1. LAST DSW SENSED OR LAST CHARACTER READ IS. 3A005370 | 003D 0 T70D4 MDX KY IN4E1 GO SENSE DSW 3A006050 
| * DISPLAYED IN THE 9 REG. SEE WAIT 1. 3A005380 a LES EELE ESTELLE AE SLASE SSE ES EES CL ELSE SES REELS EA EE 3A006060 
x 2. TO RUN PROGRAM WITH INTERRUPT DELAY SW ON, 34005390 O03E 0 0000 Dc @) SPACE FILLER | | - 3A006070 
* EXECUTE BIT SW 15 OFF OPTION. 3A005400 OOZ3F 0 0000 DC ) * 3A006080 
* 3A005410 0040 0 9900 | DC 0 x | 3A006090 
SERGE GSI SO EG RUGGIERO fa aoe Rak tok oe 3A005420 0041 0 90000 NC 0 ok 3A006100 
0000 ORG 0 34005430 0042 0 0000 NC 0 * 3A006110 
0900 0 6024 KYBGN LNDX | KY BLD *xA*® TO 7/6032 LDX KYRST 3A005440 0043 0 9000 DC fe) * 3A006120 
0001 0. 0001 KYONE DC ane CONSTANT 1 3A005450 0044 0 0000 | | DC 0 e 3A006130- 
0002 0 9004 KYBSW DC KYDSW BIT SW SAVE AREA 34005460 0045 0 9000 DC 0 Ok 3A006140 
0003 0 003A . DC /003A  ¥*A*® TO /3A00 RD BIT SWS 3A005470 0046 9 0000 — pe 0 * 3A006150 
- 9004 0 6032 — KYDSW LDX  KYRST RESET VECT/BIT SWS 3A005480 0047 0 0000 | DC 9 *x 3A006160 
0005 0 FOLO = DC  /F010 *A* TO /OFOL XIO SENSE DSW 3A005490 0048 0 0000 | DC 0 * 3A006170 
0006 0 0000 KYSEL DC 0 | 3A005500 0049 0 9000 DC 0 _ 3A0061L80 
0007 0 C000 | DC /C000 *A* TO /OCOO XIG SEL KYBD 3A005510 O04A 0 0000 om 0 oe 3A006190 
0008 0 OODOA KYRD DC KY KEY KEYED RD/IN AREA 34005520 0048 0 0040 - Oc /0040 THE LAST FIVE wORDS ARE 3A006200 
0009 0 AQGODO. DC 4A000 *xAx TO /OAOO XIG KEY RD 3A005530 904C 9 9000 DC /9000 * USED FOR PROGRAM . 3A006210 
OO0A 0 0000 KYKEY DC +—* KEYED RD/IN AREA 34005540 904D 0 2000 | pec. /2000 * IDENTIFICATION. THREE 3A006220 
GOOR O 0000 KYDSV DC *— LAST DSW SENSED 3A005550 O04F O 2000 NC /2000 * FOR THE PID AND TWO FOR 3A006230 
o00C 0 0011 — OC KY IN4 INTERRUPT ADDR | 34005560 O04F 0 0040 DC /0040 * SEQUENCE. 3A006240 
090D O CBFC KYDCH LDD KYKEY LOAD LAST CHAR READ 3A005576 : 
OOOF O 18D0 RTE 16 SWAP LAST CHAR/DSW 3A005580 
OOOF O DBFA STD KY KEY. * 34005590 
0010 90 7011 . MDX KYDSP 34005600 
0011 0 09900 KYIN4 DC *— % INTERRUPT ENTRY 3A005610 
0012 0 O8EF X10 KY BSW. READ BIT SWS 34005620 
0013 0 O8FO X10 KYDSW SENSE RESET DSW 3A005630 
0014 0 DOFS& STO KYDSV SAVE DSW 3A005640 
0015 0 1001 SLA t CK 1F RESPONSE 3A005650 
0016 0 4850 BOSC =~ x 3A005660 
0017 0 7001 .- MDX KYREFQ NO, CHK TF REQUEST 3A005670 
0018 0 7003 MDX KYRDW YES, READ CHAR CODE 3A005680 
0019 0 1001 KYREQ SLA 1 CHECK [fF REQUEST 3A005690 
OO1LA 0 4850 BOSC a OF 3A005700 
“DATE 15FEB68 25JUL69 PROG 1D 03A0-0 DATE 15FER68 25 JUL69 PROG ID 03A0-0 
EC NOo PAGE 5 EC NO. PAGE 


5A 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 7 | — PART NO. 2243962 IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 7 - PART NO. 2243962 


| PAGE 6. _ PAGE 6A 
1130 SCOPE LOOP PROGRAMS an 1130 SCOPE LOOP PROGRAMS oo ae gg ee 
BO i sR aR RK Ra tok St a oo a a REE KE KEAKEREX 34006260 ! OOOE O 1008 | . SLA 8 * 7 34006940 
* 3 | 7 | 3A006270 ——_ 4 OOOF O DOFS -_ STO | TPWRIEL . * | 3A006950_ 
6.04 PAPER TAPE * 1. THE PROGRAM PUNCHES ALTERNATE CHARACTERS - 34006280 = 0010 0 COF6 | LD TPDSWE1 BUILD SENSE RESET | 3A006960 | 
PUNCH * WHICH HAS BEEN SELECTED IN THE BIT SWS, 3A006290 | . °0011 0 1008 | SLA © 8 * | 34006970 
* OR A BINARY PATTERN, | 3A006300 | 0012 0 ESBEE an oR TPONE  * | - e oe - 3A006980 
* 2. AN OPTION IS AVAILABLE TO SET UP A VARIABLE 3A006310 0013 0 DOF3 a ~$T0 TPOSWE1L * | : 3A006990 
* DELAY BETWEEN XI0O PUNCH EXECUTIONS. 3A006320 90014 0 COEE LD TPBSWEL | BUILD READ BIF SW 3A007000 
* 3. AN OPTION IS AVAILABLE TO HALT THE PROGRAM 3A006330 : = 0015 O 1008 | SLA 8 * 1OcC 3 | 3A00T010 
x AFTER THE COMPLETION OF THE EXECUTION OF 3A006340 9016 O DOEC sTo TPBSWEl .% : 3A007020 
* A PROGRAM PASS. | — 3A006350 | oo — 0017 0 COED : LD TPONE BUILD PATTERN WORD 34007030 
* 4, SEE PAGE 2A FOR BIT SW CONTROL BINARY PATTERN. 3A006360 — 0018 0 1008 — SLA 8 * | 3A007040 
* 5. THIS TAPE MAY BE USED IN THE PAPER TAPE 3A006370 | | | 0019 0 DOFO STO . TP1O0O * | | ~3A007050 
& READER SCOPE LOOP, 6.05. 3A006380 | | — OOLA O COEE LD TPCTL SET UP RESET AND 34007060 
* , 3A006390 | | | .  . 001B 0 DOES | ~ $T0 TPBGN — * START BRANCH 3A007070 
Ae PRELOAD SWS * 1. IF DELAY IS DESIRED, SET DELAY CONTROL 3A006400 OOo1C O O8ES TPROS X10 .TPBSW _ READ BIT SWS FOR | 3A007080 
a VALUE IN BIT SWITCHES 1 THRU 13. -3A006410 | 001D O COES8 iD TPDSW * PROG OPTS/DELAY | 3A007090 
* *NOTE* SWS 1 THRU 13 ALL ON» MAX DELAY. 3A006420 | | | | OO1E O DOES | $ToO TPSET * 3A007100 
* SWS 1 THRU 13 ALL OFF, NO DELAY. 3A006430 OO1F O 3001 WAIT l SET CHARS IN SWS” 34007110 
* 2. IF A BINARY PATTERN IS DESIRED», TURN ON 34006440 , 0020 0 1010 > | SLA 16 CLR PUNCH WD LOC 3A007120 
x BIT SWITCH 14. 3A006450 | | — 0021 0 DOES. | sTo TPDSW | : 3A007130 
* 3. IF A WAIT AFTER EACH PROGRAM PASS IS 3A006460 0022 0 COE5 | LD —  JTPSET CHK PUNCH OPTION 3A007140 
x DESIRED, TURN ON BIT SWITCH 15. 3A006470 0023 0 1O00E SLA 14 * 3A007150 
* | | 3A006480 3 0024 0 4828 BSC =— &2Z * | 3A007160. 
RB. LOADING * LOAD [PL FROM CARD OR PAPER TAPE. | 3A006490 _~— 0025 0 7002 | | MD X TPPAT BIT 14°ON, PCH PATT 3A007170 
* | | 3A006500 | | 0026 0 O8DB | XI0 TPBSW READ BIT SWS ; 3A007180 
C. WAITS 1 * SET DESIRED CHARACTERS TO BE PUNCHED IN BIT SWS 3A006510 | 0027 0 7005. 7 | MDX TPSEN GO SENSE OSW 3A007190 
= * O THRU 15.2 SEE PAGE FOR BIT SW CODES. ; 34006520 | | 0028 0 CODD TPPAT LD TPDOSW LOAD PATTERN WORD = 3A007200 
* 1ST CHARACTER IN SWS O THRU 7. | 3A006530 0029 0 80EO A | TP 100 BUILD NEXT WORD | 3A007210 
aK | _ 2ND CHARACTER IN SWS 8 THRU 15. 3A006540 | 002A O DODB 7 STO TPOSW * 3A007220 
* MAKE PAPER TAPE PUNCH READY. | a 34006550 | 002B 0 1010 TPALT SLA 16 , CLR 2ND CHAR SW -3A007230 
* DEPRESS START. | : 34006560 —002C 0 DODC as. STO TPCTL | a a | 3A007240 
a | 3 | | 3A006570 | | 002D 0 08D8 7 TPSEN XIO TPDSW SENSE DSW | ~3A007250 
2 * NORMAL PROGRAM WAIT IF 1 PASS OPTION HAS BEEN 3A006580 _ ~ Q02E.0 DODC STO. TPDSV SAVE DSW oe | 3A007260 
* SELECTED. DEPRESS START TO MAKE ANOTHER PASS. 3A006590 | . -002F 0 C8DA LOD TPDSV-1 LOAD LAST DSW IN Q | 3A007270 
cs | | | a | 34006600 | | 0030 0 08D3 X10 TPWRT PUNCH CHARACTER 3A007280 
3  * NO INTERRUPT GENERATED AFTER XIO PUNCH 3A006610 | 0031 0 3003. WAIT £3 WAIT FOR INTERUPT ~ 34007290 
* COMMAND WAS GIVEN. SEE COMMENTS. 3A006620 0032 0 7007 | MDX TPRET BRANCH TO DELAY 3A007300 
* rer : 3A006630 | 0033 0 0000 TPIN4 DC *—-*k INTERRUPT LEVEL 4 3A007310 
De RESTART * 1. TO RESTART PROGRAM OR RESET INITIAL PRELOAD 3A006640 0034 0 C8D5 : LDD — TPDSV-1 LOAD LAST OSW INTO Q 3A007320 
% SWITCH SETTINGS, DEPRESS IMMEDIATE 3A006650 0035 0 O8DO X10 TPDSW SENSE RESET DSW | 3A007330 
* STOP AND RESET PUSH BUTTONS. 3A006660 | | 0036 O DOD4 : | STO TPOS | SAVE DSW , 3A007340 
* 2. SET DESIRED PRELOAD BIT SWITCH SETTINGS. 3A006670 | | 0037 0 1003 > _ SLA Ss, CK IF PUNCH RESPONSE 3A007350 
* 3. DEPRESS START. © 3A006680 a 0038 0 4850 ; BOSC = RESET INT LEVEL 3A007360 
* _ 3A006690 | 0039 0 7OFA : MD X TPIN4GEL RESENSE DSW 3A007370 
E. COMMENTS * 1. LAST DSW SENSED IS DISPLAYED IN THE Q REG. 34006700 003A 0 COCD TPRET LD TP SET SET UP DELAY AND 3A007380 
* 2. TO RUN PROGRAM WITH INTERRUPT DELAY SW ON | 3A006710 ! 003B 0 1801 — SRA 1 : * EXECUTE DELAY 3A007390 
% OR TO BYPASS THE INTERRUPT WAIT, LOAD /6034 3A006720 . 003C 0 9004 TPLOP §S i TPONE * 3A007400 
* INTO LOCATION /0031 AND DO A PROGRAM RESTART. 3A006730 | 003D 0 4810. BSC 23 - * 3A007410 
* 3. TO SET UP. LOOP TO EXECUTE XI0, LGAD /6034 3A006740 ae OO3E O 7OFD | MDX TPLOP * | 34007420 
* = INTO LOCATION /0031 AND LOAD /603A INTO 3A006750 7 0O3F O COC9 | LO  TPCTL CHK IF 2ND CHAR SW 3A007430 
* LOCATION /0039 AND DO A PROGRAM RESTART. 3A006760 : 0040 0 4818 BSC &- /.  - # CLEARED . 3A007440 
* o. | 3A006770 | 0041 0 7004 MDX TPNOT . YES | 3A007450 
: eRe ede a a a ee a KK KEKE EEK EKEEK 34006780 0042 0 COCc3 LD  TPDSW NO, SET UP 2ND CHAR 3A007460. 
0000 , : ORG 0 | | 3A006790 0043 0 1008 SLA 8. * 3A007470 
0000 0 600D | TPBGN LDX ~TPBLD *A*® TO LDX TPRDS /6024 | 3A006800 0044 0 DOC! STO TPDSW * ; 3A007.480 
0001 0 0001 TPONE DC. 1 — CONSTANT ONE. 3A006810 0045 0 TOES MDX TPALT PUNCH 2ND CHAR | 3A007490 
0002 0 0006 TPBSW DC TPDSW BIT SW SAVE AREA 3A006820 | 0046 0 68C2 TPNOT STX TPCTL SET 2ND CHAR Sw 3A007500 
0003 0 OO3A DC /OO03A *A* TO /3A00 RD BIT SWS 3A006830 | 0047 0 COCO LD TP SET ~ CHK 1 PASS OPTION SW 3A007510 
0004 0 0006 TPWRT DC  TPDSW CHARACTER ADDRESS | 3A006840 0048 0 4804 BSC e. « x. 3A007520 
0005 0 0019 | DC 70019 *A* TO /1900 XIO PUNCH 34006850 0049 0 3002 WAIT 2 COMPLETED PROG PASS 3A007530 
0006 0 0000 TPDSW DC wm & BIT SW READIN AREA _ 3A006860 | ; 004A. 0 7007 | MDX TPRDSE6E6 LOOP PROGRAM 3A007540 
0007 O OOLF DC JOOLF *A* TO /1F01 SENSE DSW 3A006870 | | KEKEKCEKKEKKEKEEE KE EKEEKKEKKERKKEKECEKERKEKEREKEKEKEKK 34007550 
— 0008 0 0000 | TPSET DC. xe — SW OPTITON/DELAY SAVE 3A006880 004B 0 0040 | DC 10040 THE LAST FIVE WORDS ARE 3A007560 
0009 0 601C TPCTL LDX TPRDS 2ND CHAR SW/RESET MOD 34006890 | | 004C 0 9000 DC /9000 * USED FOR PROGRAM 3A007570 
000A 0 0000 TP100 DC | *-* *A* TO /0100 PATT BUILD 34006900 | | 004D 0 2000 | ; DC 42000 : * IDENTIFICATION. THREE 3A007580 
Q00B 0 0000 TPDSV DC *~ * DSW SAVE AREA. 3A006910 O04E 0 2000 | : DC 12000 * FOR THE PID AND TWO FOR 3A007590 
oo0c 0 0033 DC TPING » INTERRUPT ADDRESS 3A006920 O004F 0 0020 | | DC 10020 * SEQUENCE. . 3A007600 
O0OD 0 COFT7 TPBLD LD TPWRTEL | BUILD WRITE YIOCC 34006930 : 7 
DATE -15FEB6B 25JUL 69 | | PROG ID 03A0-0 DATE L15FEB68 25JUL69 aes PROG ID 03A0-0 
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DATE 


EC NO.. 


6.205 PAPER TAPE 


RE 


Ne 


420403 


ADER 


PRFLOAD SWS 


R,. LOADING 
GC. WAITS 
D. RESTART 
E. COMMENTS 
0000 } 
0000 0 6021 
0001 0 602F- 
0002 0 0809 
0003 0 D021 
0004 0 1001 
0005 0 4850 
0006 O 70FB 
0007 0 0806 
0008 0 CO1B 
0009 9 7008. 
000A 0 DODO 
ooOoB 0 FND0 
—000C 0 0001 
OO0OD O FRD8 
15FEB68 25JUL59 - 


a ee ee ee ee ee 


571053. 


fo ok ck ito tok kk gkko tok kkk iok kok dk ok kok ok ok kok dk ek 
THE PROGRAM RFADS CHARACTERS WHICH HAVE BEEN 
PUNCHED IN THE TAPE AND COMPARES THEM WITH 

A BINARY PATTERN OR ALTERNATE BIT SWITCH 


ls 


36 


NO 


TO 
i 
2 

3. 
be 
2. 


TRBGN 


TRING 


-TRADV 


TROSW 


ae. 





THE L130 SYSTEM 


CHARACTERS. 


AN OPTION IS AVATLABLE TO SET UP A VARIABLE 


DELAY BFTWEFN XIO READ EXECUTIONS. . 
AN DNPTION IS AVAILABLE TO BYPASS WAIT 6 


ON COMPARE FERRORS. 


LP DELAY 


INTERRUPT GENERATED AFTER XIO TAPE ADVANCE 
COMMAND WAS GIVEN. | 


COMPARE ERROR, 
READ. 


1S DESTREQ, SET DELAY CONTROL 
VALUE IN BIT SWITCHES 1 THRU 13. 
*NOTE* SWS 1 THRU 13 ALL ON, MAX DELAY. 


SWS 1 THRU 
IF A SINARY PATTERN 
BIT SWITCH 14. 
IF RYPASS COMPARE ERROR WAIT 6 OPTION IS 
DESTREDs 


13 ALL OFF, NO DELAY. 


ITS DESIRED, TURN ON 


TURN ON BIT SWITCH 15.. 


LOAD PAPER TAPE INTO READER. 
LOADING 


LOAD IPL FROM CARD OR PAPER TAPE. 


SFE PAGE 2A FOR BIT SW CODES. 


SEE COMMENTS. 


ACCUMULATOR CONTAINS THE CHAR 

THIS CHARACTER IS NOW LOCATED 1 CHARACTER 
PAST THE SENSING | | | 
TO READ/COMPARE NEXT CHARACTER, 


LOOP ON COMPARE ERROR, SEE PRELOAD SWS. 


TO RESTART PROGRAM OR RESET INITIAL PRELDAD 
SWITCH SETTINGS, DEPRESS IMMEDIATE. | 
STOP AND RESET PUSH BUTTONS. 

DESIRED PRELOAD BIT SWITCH SETTINGS. 


DEPRFSS START. 


SET 


LAST OSW SENSED IS DISPLAVED IN THE Q REG. 
TO RUN PROGRAM WITH INTERRUPT DELAY SW ON 
OR TQ BYPASS THE INTERRUPT WAIT, 
INTO LOCATION /0042 AND DO A PROGRAM RESTART. 

TO SFT UP LOOP TO EXECUTE XIQy 


INTO LOCATION 


ORG 
LOX 
LNX 
X10 


STO . 
SLA 
BOSC 


MD X 
X10 
LOD 

MD X 


0 
TRBLD 


TRRST. 
~ JRDSW 
~TRDSV, 


l 


TRINGEL 


TRRD 

TRARA 
TRIGA 
/)000 


7E000 
/Q001 


/F 808 


| 40042 AND LOAD /601A INTO 
LOCATION 7/0006 AND DO A Enea el RESTART. 


¥*A* TO /602F LDX TRRST 


INTERRUPT ENTRY 


SENSE DSW 


SAVE DSW 

CK FOR OP COMPLETE 

% 

NG, RESENSE DSW 

YES, READ TAPE 
COMPARE TO EXPECTED 
GO TO TRI4A | 

BUILD CONSTANT 


~*A* TO /1C00 X10 ADVANCE 


INT. ADR/CONSTANT 1 


—*A* TQ /1LFOL XTIO SENSE 


SEE PAGE 2A FOR 
A BINARY PATTERN TAPE. : 
PLACE 1ST CHARACTER TQ BE READ FROM THE TAPE; 
JUST BEHIND SENSING PINS. 
SET DESIRED CHARACTERS TO COMPARE IN BIT SWS 
O THRU 15. 
1ST CHARACTER IN SWS O THRU 7. 

2ND CHARACTER IN SWS 8 THRU 15. 

DEPRESS START. 


DEPRESS START. 


LOAD /6002 


LOAD /6002 


PAGE 


3A007620 
3A007630 
30007640 
3A007650 
3A007660 
3A007670 
34007680 
3A007690 
34007700 
3A007710 
3A007720 
3A007730 
3A007740 
3A007750 
3A007760 
34907770 
34007780 
34007790 
3A007800 
3A007810 


3A007820 


3A007830 


3A007840 | 


3A007850 
3A007860 


— 3A007870 


34007880 


3A007890 
3A007900 | 
3A007910 
34007920. 


3A007930 
3A007940 
34007950 
3A007960 


3A007970. 
-3A007980 


34007990 
34008000 
34008010 
3A008020 
3A008030 
3A008040 
34008050 
3A008060 
3A008070 
34008080 
3A008090 
3A008100 
3A008110 


3A008120 — 
34008130 


34008140 


34008150. 


34008160 


~3A008170 


34008180 
34008190 
34008200 


34008210. 
34008220, 


34008230 
3A008240 
34008250 
34008260 
34008270 
34008280 
34008290 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1130 SCOPE LOOP 


DATE | 
EC NO. 


420403 


PROGRAMS 
NN0E 0 0024 
OONOF O OOLA 
0010 0 0023 
OO1LL 9 OO3A 
0012 0 FOLO 
0013 0 4818 
0014 90 7005 
90015 0 COOB 
NOOL6H O 4804 
0017 0 7002 
0018 9 C8OB 
9019 9 3006— 
001A 0 C809 
901B 90 C005 
901C 0 1801 
OOLD 0 SDEE 
OOLE 9 4810 
OO1LF O TOFD 
9020 0 7014 
0021 0 COEF 
0022 0 1008 
0023 0 DOED 
0024 0 COE8 
90025 9 1803 
0026 0 DOE6H | 
0027 9 1008 . 
0028 0 DDFS 
0029 0 CBEO 
QO2A 0 1803 
0028:0 DOE3 
902C 9 DaND 
002N 0 CON3 
O002E O DON1 
N02F 0 OBEO 
0030 0 COF2 
0031 0 NOFF 
0032 0 3901 
0033 0 1010 
0034 0 DOEE 
0035 0 COER 
90036 0 1OOE 
0037 0 4828 
0938 9 TOOF 
0039 0 08N6 
NN3A 90 COEB 
0038 0 4820 
003C 0 7006 
003N 9 68ER 
~—O03F 0 COE4 
QOO3F 0 19908 © 
9040 9 DNE2 © 
9041 0 OBCB 
0042 0 3005 
0043 0 1010 
0044 0 DOE] 
0045 0 CODD 
9046 9 1808 
0047 0 TAFT 
0048 0 CODA 
9049 0 80DB 
004A 0 TOFS 
0048 0 0049 
004C 0 9000 
0049 0 2000 
O004E 9 20900 
004F 0 0010 
L5FFB68R 25J5ULAH9 


571053 


TRRD 
TRBSW 


TRIGA 


TRLOP 


TRBLD 
TR100 


TRSBW. 


TRARA 
TRDSV 


TRCTL 


TRRST 


TRSTR 


TRALT 


TRNOT 


TRPAT 


DC TRARA 
bc JOO1A 
DC TRSBW 
DC /O03A 
FOR TRSBW 
BSC £- 

MIX TRLOP-3 
LD TRBLD 
BSC E 

MDX TRLOP-3 
LOD TRARA 
WAIT 6 

Lon TRARA 
LN TRBLD 
SRA. 1 

S TRDSW 
BSC _ 

MDX TRLOP 
MN X TRSTR 
LO TRBSWE1 
SLA 8 

STG TRBSWE1 
Lo TROSWE1 
SRA 3 : 
STO TROSWEL 
SLA 8 , 
STO TR100 
LON TRADV 

RTE 3 
STO TRRDEL 
STD TRADV 
LD TRING 
SsTQ -TREGN. 
X10 TRBSW 
LD  TRSBW 
STO TRBLD 

WAIT 1 
SLA 16 
STU TRSBW 
LD TRBLD 
SLA 14 
BSC 82 
MDX TRPAT 
XTO  JTRBSW 
LD TRCOTL 
BSC Z 
MDX TRNOT 
STX TRCTL 
LO TRSBW 
SLA g 

sta TRSBW 
X10 TRADV 
WATT t) 

SLA 16 
sTO | TRCTL 

LO TRSBW 
SRA g 
MDX TRALT 
LD T2 SBW 
A TRIOO 
MD Xx TRALTE1 
DC /0040 
Dc . 49000 
DC /2000 
OC /2000 
ne 


400190 


READ/IN ADDR 


*A* TO /1A00 XID READ 


BIT SW SAVE ADDR © 


*#A* TO /3A00 RD BIT SWS 


ok 
* 
OK, GO TO DELAY 


ee CK LOOP/ERR OPT 


fr SELECTED 


LD WO READ AND DSW 
COMPARE ERROR WATT 


LOAD DSW INTO Q 
SET UP DELAY 
Kk 


x 

* 

* 

CK ON PATT OPT 

BUILD PROGRAM 
*A® TO /01900 PATT. 


BUILD 


*A* JO *-* COMP S/B WORD 


*A* TO *-* WORD READ 
*xA* TN *-* SAVED DSW 
Ax TO *-* ALT CHAR SW 

x 

* 

x 

x 

* 

* 

* 

Ok 


RD SWS DELAY/OPTIONS 


*x : 


* 


* 
* 


SAVE DELAY/OPTIONS 


SET CHARACTERS IN SWS 
INITIALIZE $/B WD 


“CK WHICH PATT OPTION 


RINARY PATT SELECTED 
READ BIT SWS- ~ CHARS 


CK WHICH CHAR 

* 

SEL LEFT CHAR 
SET ALT CHAR SW 
LOAD BIT SWS — 


SET UP RIGHT CHAR 


SAVE IN S/B 
ADVANCE TAPE 


WALT FOR INTERRUPT 


CL ALT CHAR SW 
* 
SET UP RIGHT CHAR 


* 
x. 


€ 


SET UP BINARY PATT 
% ee : 


FEMS OE IO EAE EE AEE 


THE LAST FIVE WORDS ARE 
* USED FOR PROGRAM 


* IDENTIFICATION... 
* FOR THE PIN AND a FOR 


x Ses 





THREE 


PART NO. 


PAGE 


3A008300 — 


34008310 


34008320 


34008330 
3A008340 
3A008350 
3A008360 
3A008370 
34008380 
3A008390 
3A008400 
3A008410 


3A008420. 


3A008430 
3A008440 


3A008450 


3A008460 


3A008470 


3A008480 


3A008490 
34008500 


3A008510 
34008520 


3A008530 | 


3A008540 


-3A008550 


3A008560 
3A008570 
3A008580 
34008590 
3A008600 
3A008610 
3A008620 
34008630 


~3A008640 


3A008650 


3A008660 


3A008670 
3A008680 
3A008690 
3A008700 
3A008710 
3A008720 


3A008730 | 


3A008740 


3A008750. 


3A008760 


3A008770 
~3A008780 


3A008790 
3A008800 
3A008810 


34008820 
3A008830 | 


3A008840 
3A008850 


- 3A008860 
-3A008870 
3A008880 | 


3A008890 
3A008900 


3AQ0B891L0. 


3A008920 


34008930 


34008940 
34008950 
3A008960 
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6.06 


0000 
0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
OO0A 
0008 
000¢ 
0000 
O00E 
000F 
0010 


0011 


0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
OOLA 
— 0018 
OOIC 
001D 


DATE 
 €C NO. 


15F 
420 


an 


. | 


7 / 
eee Saag" 


1442 PUNCH 


A. PRELOAD SWS 


B. LOADING 


C. WAIT “1 


D. RESTART 


E. COMMENTS 


6037 
0003 
0000 
0000 
0003 
OO3A 
0003 
0011 
0011 
A008 
0008 
B818 
OOll 
0029 
OOFO 
3001 
TOLF 
0000 
O8FT 
1001 
4850 
T00C 
O8ED 
COEA 
BOEB 
DOES 
FOF3 
4820 
7003 
0 COES5 


ooooc”coooooocoooo0oooceoec e0c0ccoce © 


EB68 


403 571053 
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IBM MAINTENANCE 


DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


PAGE 8 | 3 
1130 SCOPE LOOP PROGRAMS 
SU OO go RC ao ot Ook doi igi dluk dtd doit 34008980 OO1E O ERFEB 
x ir. ot | 7 | 3A008990 OO1F 0 DOE3 
* THIS PROGRAM WILL PUNCH THE DATA IN BIT SWITCHES 3A009000 0020 0 O8E5— 
* O-11 IN ALL COLUMN UNLESS BIT 12 IS ON AND THEN 3A009010 0021 0 3003 
* ONLY THE FIRST COLUMN IS PUNCHED. THESE CARDS 3A009020. 0022 0 1003 
* MAY BE USED IN THE READER SCOPE LOOP 6.07 AND 3A009030 0023 0 4850 
* 6.11. 34009040 0024 0 6012 
¥ 3 3A009050. 0025 0 1010 
* NONE, SWITCHES MAY BE SET AT ANY TIME. 34009060 0026 O DODB 
a | a 3A009070 0027 0 OB8NC 
* IPL MODE FROM CARDS OR PAPER TAPE. 3A009080 0028 O CODA 
x ! - sf 34009090 0029 0 4804 
* SET DESIRED BIT SWITCHES AS FOLLOWS, 3A009100 002A 0 3002 
i “BIT 15- HALT 3A009110 002B 0 1801 
k BIT 14- STACKER SELECT 3A009120 002C 0 4804 
* BIT 13- FEED A CARD 3A009130 002D 0 7005 
% BIT 12— TERMINATE PUNCHING 3A009140 OOZE 0 1801 
0 TO 11- PUNCHING PATTERN 3A009150 O02F 0 4804 
* | 7 | | -_ 34009160 0030 0 O8CF 
* ONE PASS COMPLETED, PRESS START TO CONTINUE. 3A009170 0031 0 08D6 
* | 3A009180 0032 0 3005 
* LOST PUNCH INTERRUPT. 34009190 0033 0 O8D8 
* a 34009200 0034 0 COCE 
x {LOST FEED OR INTIATE PUNCH INTERRUPT. 3A009210 0035 0 1802 
* , 3A009220 0036 0 70F8 
* PRESS IMMEDIATE STOP AND RESET. PRELOADING 3A009230 
* SWITCHES MAY BE SET AS DESIRED. PRESS START. 3A009240 0037 0 COL2. 
x 3A009250 0038 0 DOC7 
* 1. TG RUN THE PROG WITH INTERRUPT DELAY SWITCH 3A009260 0039 0 COCF 
ax ON OR BYPASS THE INTERRUPT WAIT LOAD /6012 34009270 003A 0 1803 
INTO LOCATION /002L AND /0032 AND RESTART. —3A009280 003B 0 DOCD 
x | | | ee 3A009290 003C 0 FOC4 
* 2. TO GET A FASTER LOOP THAN THE ABOVE PLACE 3A009300 ~003D 0 DOC3 
/TOFE IN THE NEXT LOCATION AFTER THE XIO. THE 3A009310 OO3E 0 COC6 
% XIG WILL BE EXECUTED AFTER EACH BRANCH. 3A009320 003F 0 1008 
ee ee : 3 | 34009330 0040 0 DOC4 
Me He He He te He he He eM We a a a KKK KK KKK KEKEKKKK 3ANNII4O O04L O COCTC9 
ORG 0 | 3A009350 0042 0 1803 
PHFED LDX PHBLD ¥*A* TO /600F LODX PHi - 3A009360 0043 0 DOC7 
7 DC 0003 ¥*A* DC 41402 FD A CD 3A009370 0044 0 COC2 
PHCTR OC *— COLUMN COUNTER 3A009380 0045 0 1008 
~ PHSWS. DC x x BIT SWITCH STG 3A009390 0046 0 DOCO 
PHBSwW DC /0003 READ IN ADRS 3A009400 0047 O COC5 
DC /003A *A* DC /3A00 3A009410 0048 0 1007 
PHPCH DC PHSWS PCH I[/0 AREA 3A009420 0049 0 D0C3 
| ‘DC /OO11 *A* DC /1100 3A009430 004A. 0 600F 
PHPST DC PHINT | COL INTR ADRS 3A009440 | 
| DC /A008 # ¥*Ax* DC /1401 3A009450 004B 0 0040 
-PHDSW DC /0008 PCH TERMINATOR 3A009460 004C 0 9000 
DC /B818 *A* DC /1703 34009470. -004D 0.2000 
PHSTK DC PHINT — OP COMP INTR ADRS: 3A009480 OO4E O 2000 
DC /0029 *A* DC 41480 34009490 O004F 0 0008 
PHK50 DC /OO0FO 80 COLS TIMES 3 3A009500 | : 
PH1 WAIT l SET BIT SWS 3A009510 
MD X PH2 | 5 3A009520 
— PHINT DC *— * INTERREPT ENTRY 3A009530 
| X10. PHDSW SENSE DSW 3A009540 
SLA 1 | 34009550 
BOSC - COL INTR ON 34009560 
MD X PH6 * NO, TRY OP COMP 3A009570 
X10 PHBSW : 3A009580 
LO PHCTR COLUMN COUNTER 3A009590 
A PHBSW ADD THREE 34009600 
STO PHCTR . 3A009610 
EOR PHK50 CHECK FOR LAST COLUMN 3A009620 
BSC Z IS IT LAST COLUMN : 3A009630 
MDX PH4 , 3A009640 
LD PHSWS GET DATA TO BE PUNCHED — 34009650 
PROG ID 03A0-0 DATE 15FEB68 25JUL69 
PAGE 8 EC NO. 420403 571053 
a \. aK oy ~ a ~ ‘ re \ ieee gre. ) . ae oe 
y wt Ro Ben es ee ER ee Dt 


OR. 


POPP CTCL CCST LES OL et err e tee re sete TTS TST Se Tt sts te ee ts 


PHDSW 
STO PHSWS 
PH4 X10 PHPCH — 
WAIT 3 
PH6 SLA 3 
~ BOSC -— 
LOX PHINTEL 
SLA 16 
STO ~ PHCTR 
X10 PHBSW 
LD PHSWS. 
BSC E 
WAIT . 20 
SRA 1 
BSC E 
MD X PH8 
SRA 1 
BSC E 
PH2 X10 PHFED 
7 X10 PHPST 
WATT 5 
PHB xXIO PHSTK 
| LO PHSWS 
SRA 2 
MDX PH2-1 
PHBLD LD PHRES 
STO 0 | 
LD PHPST+t#1. 
SRA. 3 | 
STO  PHPST41 
EOR PHFEDEL | 
STO . PHFEDEL 
LD PHBSWtl 
SLA 8 
STO  PHBSW41 . 
LD PHDSW+l 
SRA 3. | 
STO PHDSWtl 
LD PHPCH#1 
SLA 8 
sto PHPCH+tl1 
LD PHSTK+41. 
SLA 7 
sto  PHSTKEL 
PHRES. LDX PHI — 
DC 10040 
DC 7/9000 
DC 72000 
DC /2000. 
DC 7/0008 


HHH HHH HE HH HH 


et & % & 


* AND OR IN PCH TERM 
* ANS STORE BACK 
PUNCH A. COLUMN | 
WAIT FOR INTERRUPT. 


OP COMP ON 
* NO, SENSE AGAIN 


* LEVEL 4- OP COMP 


CLEAR COLUMN COUNTER 
READ BIT SWITCHES 
GET SW SETTING | 
HALT PROGRAM 

* YES 

* NO ae | 
DO STACKER. SELECT 


® YES 


* NO. 

WHAT OPERATION 

FEED A CARD 

START THE PUNCH 

* PCH FROM SWS” 

GIVE STACKER COMMAND 
RESTORE ACC . 


BUILD XIO COMMANDS 
SET UP RESTART 


INIT PCH | 

FEED A CARD 

READ BIT SWITCHES 
SENSE DSW 


PCH A COLUMN 


STACK SELECT 


THE LAST FIVE WORDS ARE 
USED FOR PROGRAM 
IDENTIFICATION. THREE 
FOR THE PID AND TWO FOR 
SEQUENCE. | | 


PAGE 


3A009660 


3A009670 
3A009680 


34009690 


- 3A009700. 


3A009710 


~3A009720 


34009730 
3A009740 
3A009750 


34009760 


3A009770 
3A009780 


3A009790 | 


34009800 
34009810 


3A009820 


3A009830 
3A009840 


3A009850 | 


PART NO. 2243962. 


3A009860 _ 


3A009870 
3A009880 
34009890 
34009900 
3A009910 
3A009920 
3A009930 


~3A009940 | 


3A009950 
3A009960 


3A009970 .: 


' 3A009980 
34009990 


3A010000 
3A010010 
3A010020 
34010030 
3A010040 
3A01L0050 
3A010060 
3A010070 
3A010080 
3A010090 
3A010100 
3A010110 
3A010120 
3A010130 


34010140 | 


3A010150 
3A010160 
3A010170 


PROG ID 


PAGE 


BA 


-03A0-0 


SA 


- J 


1130 SCOPE LONP PROGRAMS 


NATE. 


EC NO. 





i) 
9) 
0 
0003 0 
Q 
() 
(} 


ae 


Rs 


ae 


De 


22. 


0000 


0000 


0001 


9002 


JOD4 
N005 
0006 


0007.9 


0008 9 
0009 9 


~OO0A O 


OOOR | 
N00C 
000D 


OOOF 
Q019 

0011 ¢ 
0012 0 
0013 0 


}5FFR68 ~ 
420493 — 


~~ Pa oof 
ee oe) . 


TBM MAINTENANCE’ DIAGNOSTIC: PROGRAM FOR THE 1130 SYSTEM. 


6.07 1442 RFADER 


LOADING 


WAITS 


RFSTART 


COMMENTS 


601F- 
OOFF 
0006 | 
003A 
0001 
0012 
6020 — 
BR18 
NO0F 
2808 
9000 
9000. 
OO0F - 


2) 
) 
0 OOFF 
~~ OODE O 
0 
9) 
-) 


0001 


0900. | 
“OBF5 


NOFYI 
4850 
T024 


« PRELOAD SWS 


F 


25JUL69 
571053 


% % ub tt 4 es 


4 


st 3 4% 


St. se 3b 


ae 


By 


2. 


te oH Tt st 4 


i te 4 


a 


oe ee a 


3st at 
N 
® 


a 


-RDBGN 


RDARA 
RDBSW 


RDBRD 
RDDSW 
RORGO 


RDERR 


RODSV. 


RIDOFF 


— ROONE 
ROLO4 


— ROSC - 


a 
"THE CARD AND COMPARES IT WITH ‘THE’ BIT SWS. 
AN OPTION TS AVAILABLE TO SET UP A VARIABLE 
DELAY BETWEEN XIN READ EXECUTIONS. 


DESIRED, 


COMPARE FRROR. 
IF ACCUMULATOR CONTAINS /O0FF, 
NOT STORED INTO READ/IN AREA. 
DEPRESS START TO REAN NEXT CARD. 
TO BYPASS COMPARE ERROR WAIT, 


is: 3 
SWITCH SETTINGSs 


TO RUN | 
OR TO BYPASS THE INTERRUPT WAIT, 
INTO LOCATION /0037 AND DN A PROGRAM RESTART. 
TQ SET UP LNOP TO EXFCUTE XIN» 
“INTO LOCATION /0037 
LOCATION /993A AND DO A PROGRAM RESTART. 


DE Re 
| «SENSE AND SAVE DSW 
x 





ye 
} 
ro 


ns, : Pos 


Hi i , 
caw ae 


THE PROGRAM READS A 


THUOH EI oo nol oon crore rcbnee ce anens 


+ 


COLUMN oF DATA FROM 


AN OPTION IS: AVAILABLE TO BYPASS WAIT 6 


ON COMPARE EBRGE 


IF DELAY 1S NESTRED, 
VALUE 


SET DELAY CONTROL 


. IN BIT SWITCHES 1 THRU 13. 
— ¥NOTE® SWS 1 THRU 13 ALL ONy 
a SWS 1 THRU 13 ALL OFF, 


MAX DELAY. 
NO DELAY. 


IF RYPASS COMPARF ERROR WAIT 6 OPTION IS 


TURN ON 


SEE 


TO RESTART PROGRAM 


STOP AND RESET PUSH 
SET DESTRED PRELGAD 


DEPRESS START. 


LAST DSW 


PRUGRAM WITH 


ORG 0 


LOX RNRBLD *A* 


ne — /OOFF. 2 | 
RIT SW SAVE AREA 


NC RDOSW 


pe /003A  *A* 


Nc  RPARA OR 


DC. _ 40912 AK 
(  ARDRST OS 

DC 7/8818 | ¥A* 
pC = RD T04 T 
DC. 72808 * Ax 
DG: Ogg : 
pce RDID4 1 
pc =i JF F 
WO Lo 


RNOSW 
RNASV 


ROCOP 





BIT SWITCH 15 
LOAD. TPL FROM | CARD OR PAPER TAPE. 


“SET BIT SWITCHES O THRU 11.TO EXPECTED COLUMN 
DATA AND SET BITS 12 THRU 15 OFF. 
LOAD PREPUNCHFD CARDS INTO READER AND MAKE RDY. 
QFPRESS START. 


NO INTERRUPT GENERATED AFTFR XIN READ. 
COMMAND WAS GIVEN. 


COMMENTS. 


ACCUMULATOR CONTAINS BITS READ. 
CNLUMN READ WAS 


SEE PRELOAD. 


OR RESET INITIAL PRELOAD 
DEPRESS IMMEDIATE 


BUTTONS. 
BIT SWITCH SETTINGS. 


SENSED Is DISPLAYED IN THE Q REG.» 


INTFRRUPT DELAY SW ON 


LOAD /6010 


AND LOAD 71000 INTO 


EE REM Se Me ME eR eR Me AR aK Re oe 2 a ee ee ae a ee a OK oe de a a 


TO /6020 LDX RDRST 
FAD IN AREA 


TO /3A00 RD BIT WSW 
EAD IN AREA ADDR 
TO 41200 X10 READ 


RIT-SW SAVE AREA 
TO 1703 XIO SENSE - 


NTERRUPT ADDR 
TQ 41404 XTO START 
AST RDR- COMPARE FRR 


LAST DSW°SENSED | 


NTERRUPT ADDR 


CONSTANT. /OOFF 
CONSTANT 1 


NTERRUPT ENTRY: 


CK FOR RD RESPONSE. 
NO, 


CK OP COMPLETE 


LOAD /6010 


PART NO. 
“PAGE >. 


3A010190. 
3A010200: 
3A010210: 
3A010220: 
3A010230° 


3A010240 


3A010250. 


3A010260 


3A010270: 
3A010280: 
34010290 


3A010300 


3A010310: 
3A010320 


3A010330 
3A010340 
3A010350 


34010360. 


3A010370 
3A010380 
3A0 10390 
3A010400 
3A010410 
3A010420 


-3A010430 


34010440 
3A0 10450 
3A010460 
3A010470 


34010480 
-3A010490 


3A010500 
3A010510 





a9 


3A010520 | 


3A010530 
3A010540 
3A010550 
3A01L0560 
3A010570 
3A010580 
3A010590 
3A010600 
34010610 
3A010620 
3A010630 
3A010640 
3A010650 
3A010660 
34010670 
3A010680 
3A010690 
3A010700 


-3A010710 
- 3A010720 
-3A010730 


3A01L0740- 


-3A010750. 


3A010760 


3A01L0770 © 


3A010780 
3010790 
3A010800 


3A010810 


3A010820 
3A010830 


30010840 
- 3A010850 
- 3A0L0860 


PROG. 1D 


PAGE 


03A0-0 


2243962 





1130 SCOPE Loop 


DATE 


FO'NOs > 


PROG 


RAMS 


25 JUL69 


OOL4 O O8FF 
0015 0 COFO 
0016 0 1804 
- 0017 0 1004 
0018 0 FOES 
0019 0 4818 
Q01A 0 TOIC 
OO1B O COES5 
OO1C O DOED - 
Q01D0 0 6802 
OO1F O 7018. 
QO1F O COE3 
9020 0 1008 
0021 0 DOEL 
0022 0 COE4 
0023 0 1803 
0024 0. DOE2 
0025 0 COF3 
0026 0 1801 
Q027 0 DOE] 
0028 90 CONC 
0029 0 1008 
ON2A 0 DODA 
002B 0 CODA 
~002C 0 NOD3 
0020 0 O8D4 
NO2ZE O CONT 
OO2F 0 DOEF 
0030 0 3001 
9031 0 CODB 
0032 0 ONCE 
0033 0 1010 
0034 0 DOEB 
0035 0 O8CC 
0036 0 OADL 
0037 0 3004 
0038 0 1004 
9039 0 4850 
003A 0 T0D5 
003B 0 C8CE 
093C 0 COE2 
003D 0.1801 
903F 0 90CF- 
003F 0 4810 
0040 0 TOFD 
0041 0 CODE 
0042 0 4818 
0043 Q 7OED 
0044 0 CODA 
0045 0 LOOF 
0046 0 4820 
0047 0 7OED 
0048 9 C8Cl 
9049 0 3006 
as QO TOE6 
004B 0 0040 
904C 90 9900 
904) 0 2000 
NO04E 9 2000 
OO04F 0 0004 
15FER6R 
420403 — 


571053 


sane MAINTENANCE: DIAGNOSTIC: | PROGENY 


RDBLD 
RDESW 


RORST 


RDINT 
ROCOP 


RDLOP 


2k ae % 


SoCo a ditto dk a dok doko tok stk gob ta kok kok eo KK 


DC 


OO 


FOR. THE 1130 SYSTEM 


XIOG RDRRD 
LD RDDSW 
SRA 4 
SLA 4 
EOR RDARA 
BSC E- 
MDX RDINT - 
LD RDARA. 
STO RDERR 
STX RDESW 
MDX RDINT 
LD RDBSWE1 
SLA 8 
STO RDBSWE1 
LD. RDDSWE1 
SRA a." 
STO RDDSWE1 
LD RDRGOEL] 
SRA 1 
STO RDRGDE1 
LD RORRDE1 
SLA 8 
STO RDRRDElL |. 
LD RDOSW 
STA RDBGN 
X10 RD BSW 
LD RDDSW. 
STO RDBLD 
WAIT 1 | 
LD. RDOFF 
STO RD ARA 
SLA 16° 
STO RDESW. 
X10 RDBSW 
X1G RDRGO 
WAIT 4 
SLA 4 
BOSC ens oy! 
MDX RDIO4EL 
LOD RDDSV-1 
Lo RDOBLD. 
SRA 1 | 
S RD ONE 
RSC - 
MDX RDLOP 
LD RDESW 
BSC &- 
MD x RDRSTE&4 
L9) ROBLD 
SLA. 15 
BSC Ee. 
MNX RDINT—2 - 
LON RNDSV-1 
WAIT 6 °: 
MN xX RORSTE4 
DC. 10040 | 
NC 19000 - 
OC /2000 
pe (1/2000 © 
/0004 — 


Hott a Ht He de tt oe He He 


NO, 


# tH 4 


a ra 


YES, READ COLUMN 
CK IF COMPARE TO SWS 
x | _ | 
x 


* 


« 
YES, - 
SET ERR SW. 


WAIT FOR ce 
BUILD IOCCS AND 


READ SWS DELAY/OPT 


* SAVE DELAY/OPTION 
* 


SET READ PATTERN 
x 
* 

INITEALIZE AND READ 


* BIT SWS 
x 


START READER 


WAIT FOR INTERRUPT 
CK FOR OP COMPLETE 
x paar ave ; 
NO, RESENSE DSW. 
YES, LOAD DSW IN Q. 
SET UP DELAY 

* 


* 


* 

* 

CK IF ERR SW ON 

2 | 
NO, RD NXT CARD 
YES, CK IF LOOP: 
* ON ERROR(BIT 15) 
ae 

VES, R80 BIT SWS. 
DISPLAY RD ERR 
* AND DSW AT WAIT 6 
ROD NEXT CARD © - 


WAIT NXT INTRPT | 
a PANE: COL READ 


a 7 aes 
, <= 


‘PART NO. 2243962: 
PAGE 9A. 


3A010870 


-- 34010880 
- 34010890 


* RESET/START BRANCH 


THE LAST FIVE WORDS ARE. 


USED FOR PROGRAM 
IDENTIFICATION. 


SFQUENCE. as 


“THREE 
FOR THE. PIO. AND TWO FOR 


34010900 


. 3A010910 


34010920 
3A010930. 
34010940. 
34010950 
34010960. 
3A010970 


34010980. 


34010990 
3A011000° 
3A011010 


~3A011020 


3A011030 
3A011040 
3A011050. 
3A011060 
3A011070 
3A011080 
3A011090 
3A011L100 
3AO1L1110 
3A011120 
3A011130. 
3A011140 
3A011150 
3A011160 


-3A011170 


3A011180 
3A011190. 
3A011200 
3A0.11210— 


34011220. 


3A011230 
3A011240 
34011250. 
3A011260 


-3A011270 


3A011280. 
34011290 
34011300 
3A011310 
3A011320 
3A011330 
34011340 
3A011350 
3A011360 
3A011370 


—3A011380 
3A011390_ 


34011400 | 
3A0L1410— 
3A011420 
3A011430 
30011440 


3A011450 


3A011460 


34011470 


PROG IN 03A0-0 
PAGE! © 03.2598 


ee ; } om, . 

\ \ , \ 
is ye 
: Ng? 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THF 1130 SYSTEM 


1130 SCOPF LOOP PROGRAMS | 


DATE Ss. 


6.08 2310 DISK SEEK 


ie 


Re 


C. 


0000 
0000 
0001 
0002 
0003 


0004 


0005 


0006 


0 
0 
0 
0 
8) 
0 
0 
0007 0 
0008 0 
0009 O 
OOOA O 
000B 0 
OOOC 0 
000N O 
0 

0 

0 

0 

0 

0 


OOOE 
— OOOF 


0010 
OOLL 
0012 


0013 


 «LSFEB6E 
420403 


PRELOAD SWS 


LOADING 


WAITS 


RESTART 


COMMENTS 


601B 
0090 
QOOF 
OO3A 
QOCA 
0000 
0000 
0000 
0000 
0090 
NOLL 
0000 
0004 
OOFF 
6020. 
7010 
0808 
0000 
ORF5 
DOFT - 


1 


HM Ge He He 4 


Qe 


AND FORTH BETWEEN 2 CYL 


THE PROGRAM ALLOWS THE HEAD TO ACCESS BACK 


INDERS WHICH ARE 


CONTROLLED BY THE OPERATOR. 
AN OPTION IS AVAILABLE TO ALLOW A WAIT AFTER 


FACH SEEK OPERATION.’ 
THE PROGRAM CAN BE USED 


BEFORE LOADING THE 2310 


PROGRAM. 6. 09 


SET DESIRED DISK DRIVE 


SWITCHES 0 THRU 7. 


SUG OSG IG Go iia idicioink kt iii iok io tok gok fk 


TO POSITION THE HEAD 


WRT/RD/COMPARE 


AREA CODE IN. BIT 


DRIVE 0 --- 20Xxx 
DRIVE 1 --- 88XX. 
ORIVE 2 --- 90XX 
DRIVE 3 --- 98XXx 
DRIVE 4 --— AOXX 


IF WAIT AFTER EACH SEEK OPERATION IS DESIRED, 
SET BIT SWITCH 15 ON. | 


LOAD IPL FROM CARD OR PAPER ‘TAPES 


SET DESIRED HEX CYLINDER “ADDRESS IN BIT 


SWITCHES 0 THRU 7. 
SET DESIRED HEX NUMBER OF CYLINDERS TO SEEK IN 


BIT SWITCHES 8 THRU 15. 


NO INTERRUPT GENERATED AFTER INITIAL XIO SEEK 
HOME WAS EXECUTED. 


SEE COM 


SFE PAGE 2A. 


MENTS 


NO INTERRUPT GENERATED AFTER X10 SEEK WAS 


EXECUTED. 


le 


26 
36 
l. 
Qe 


Solo a fog aio gO goa kg det gate RRR RK RRR KKE EK 


OKBGN 
NKENT 
DKBSW 


DKHME 


DKSEK 


DKOSW 


DKDSV 
DKO04 


DKOFF 
 DKBIT- 
OKBD1 
- DKBD2 


DKIN2 


8. 25JUL69 


§71053 


TO RUN PROGRAM WITH 


* 
x 

a 

2X 

* 

* 

* 

* 

% 

* 

* 

* 

* 

* 

* 

x 

a 

* 

x 

* 

* 

ol DEPRESS START. 
ee: 
* 

x 

* 

* 

x 

* 

* 

* 

* 

* 

* 

* 

* 

* -AND TO BYPASS THE INTERRUPT WAIT, 
x 
* 
* 
x 


SEE COMMENTS 


PART NO. 


PAGE 


3A011490 © 


3A011500 


3A011510 


34011520 
3A011530 
34011540 
3A011550 
3A011560 
3A011570 
3A011580 
3A011590 


3A011600. 


3A011610 
3A011620 


34011630. 


3A011640 
34011650 
34011660 
3A011670 
3A011680 
34011690 
3A011700 
3A011710 


~3A011720 


3A011730 
3A011740 
3A011750 
34011760 
3A011770 
34011780 
34011790 
34011800 


~3A011810 


TO RESTART PROGRAM OR RESET SWITCH SETTINGS, 


DEPRESS IMMEDIATE STOP AND RESET PUSH BUTTONS- 
SFT DESTRED PRELOAD BIT SWITCH SETTINGS. 


DEPRESS START. 


LAST DSW SENSED IS DISP 


INTO LOCATIONS /0039 AN 
DO A PROGRAM RESTART. 


LAYED IN THE Q REG. 
INTERRUPT DELAY SW ON 


D /0041. 


ORG 0 
LOX  DKBLD  ¥*A* TO /6020 LDX DKRST 
DC *- * | INTERRUPT ENTRY SW 
bG- DKBIT BIT SW SAVE 
DC /003A  *A* TO /3A00 RD BIT SWS 
DC 202 MAX NUMBER OF SEEKS 
file : 1OCC-SEEK HOME 
DC xe NUMBER OF SEEKS | 
DG: . cate IOCC-SEEK 
DC - Rae “AREA CODE/SW OPTIONS 
DC et ae IOCC-SENSE RESET DSW 
DC DK IN2 INTERRUPT ADDRESS 
DC. RK LAST DSW 
DC /0004 CONSTANT 4 
DC. /OOFF CONSTANT FF 
LDX: — DKRST. - RESET VECTER 
oC . © 77010. - DSW BUILD WORD 
pe -  —-—s 0808 SEEK BUILD WORD | 
DC 9° #-*% | OP COMPLETE INTRPT 
X10 = DKDSW: . SENSE RESET ‘OSW 
Sto DKOSV- SAVE DSW" 

a Sad eed Pa 


LOAD /6012 


3A011820 


34011830 © 


3A011840 
3A011850 
34011860 
3A011870 
34011880 
3A011890 
3A011900 
3A011910 
3A011920 
3A011930 
3A011940 
34011950 
3A011960 
3A011970 
34011980 
3A011990 
34012000 
3A012010 
34012020 


- 3A012030 


3A012040 
3A012050 
3A012060 


3A012070 — 


3A012080 
3A012090 
3A012100 


3A012110 


34012120 


3A012130. 
3A012140 | 
3A012150. 
—3A012160 


PROG 1D | 


~ 03A0-0 
PAGE 


2243962 


410 


10 


IBM MAINTENANCE 


1130 SCOPE Loop 


DATE 


EC NO. 


: : ra 7 ad NS : aN : a. 
a \ . of ‘ : . F 
‘ j . 
: aoe 
a \ #2 : 
‘de ee . RP 4 at Se, Sates, 


DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


RAMS 


PROG 
0014 0 1002 
0015 0 4868 
9016 0 6012 
9017 O COE9 
9018 0 4820 
9019 0 7020 
OO1A 0 7027 
001B 0 COF2. 
001C 0 DOEF3 
OO1D O COE5 - 
OOLE O 1008 
OO1F 9 DOE3 
0020 0 O8F1 
0021 9 COEC 
0022 0 DOES 
0023 0 1808 
0024 0 100B 
0025 0 DOES 
0026 0 COE8 
0027 0 1804 
0028 0 EBES 
0029 0 DODF 
002A 0 COES 
0028 90 1801 
002C 0 EBE1 
002D 0 DOD? 
O0O02E 0 DOD8 
002F 0 3001 
0030 0 O8D1 
0031 0 CODC 
9032 0 1808 - 
0033 0 DOD2 
0034 0 08D3 
0035 9 DODS 
9036 0 C8D3 
0037 0 68C9 
0038 0 O8CB 
0039 0 3005 
003A 0 COCC 
0038 0 FODO 
003C 0 DOCA 
003D 0 C8CC 
003E 0 1010 
003F O DOC1 
0040 0 O8C5 
0041 0 3006 
0042 0 COCB 
0043 0 E0C9 
0044 0 DOC1 
0045 0 COC2 | 
0046 0 4804 
0047 0 3002 
0048 0 7OF1 
0049 0 0000 
004A 0 0000 
004B 0 0040 
004C 0 9000 
004D 0 2000 
004E 0 2000 . 
O04F 0 0002 
15FEB68 
420403 | 
as 


Z 


Reo 


- 25JUL69 
571053 


DKRST 


NKBLD 


DK MOV 


DKCON 


atl tladadhtadadadhedhdde adie thecal 


2 
BOSC £2. 
LDX DK IN26&1. 
LD DKENT 
BSC Zz 
MDX | DK MOV 
MDX DKCON- 
LL) DKBIT 
STO OKBGN 
LD NK BSWEL 
SLA 
STO DK BSWE1 
X10 DKBSW 
LD DKBIT 
STO DKDSW 
SRA 11 
SLA ll 
sTO DKBIT 
LD DKBD1 
SRA 4 
OR DK BIT 
STO DKDSWEL 
LD DKBD2 
SRA 1 
OR DKBIT 
STO DKHMEEL 
STO DKSEKEL 
WATT 1. | 
X10 DK BSW 
LD DKBIT 
SRA 3) 

STO. DKSEK 
X10 DKDSW 
—§To DKNSV 
LOD . DKDSV—1 
STX DKENT 
X10 DK HME 

WAIT 5 

LD DK SEKE1 

EOR DK 004 

STO DK SEKEL 

LOD DKDSV-1 

SLA 16 

STO DKENT 
 xXxIa DKSEK 
WAIT 6 

LD DKBIT 

AND DKOFF. 

STO DKSEK | 

LD DKDSW 

BSC. E 

WAIT 2 

MD X DK MOV 

DC : 

DC 

DC [86RGF 

DC 49000 
DC 4/2000. 

DC /2000 
DC /0002 

: ie 
a wee 


SLA 


NO, 


He He 


CK RDY, NOT BUSY 
* 
NO, LOOP 


LD INTERRUPT ENTRY SW 
CHECK IF ON . 
SEEK HOME ENTRY 
YES, SEEK ENTRY 


BUILD RD. BIT SW 10CC 
* AND SET PROG RESET 


* AND START VECTER © 
x ; 

* 

RD AREA CODE AND ‘ 
* PROG DPTIONS: 


SAVE SWS 


SET UP AREA CODE. 

of 

SAVE AREA CODE 
BUILD OSW AND SFEK 
* TOCCS — 


+ 


SET STARTING CYL. 

* AND NUM OF CYLS. 
* TQ SEEK IN BIT SWS 
SET UP START CYL. 

* i 


SENSE DSW 
SAVE DSW | 
LOAD DSW IN Q REG 

TURN ON INTRPT ENTRY SW 
SEEK HOME 

WAIT FOR INTERRUPT. 

SET UP SEEK 

* DIRECTION 

a a | 

LOAD DSW IN Q REG 
TURN OFF INTERRUPT 
* ENTRY SW 

SEEK 

WAIT FOR INTERRUPT 
SET UP NUM OF SEEKS 
: | 

x 


CK FOR SEEK AND WAIT ~ 
- | 


WAIT 
GO SEEK 


YES» 
NO, 


SPACE. FILLER 
*. 


THE LAST FIVE WORDS ARE 


USED FOR PROGRAM 
IDENTIFICATION. 
FOR THE PID AND. 
Tea uEnCes . 


THREE 


‘TWO FOR 


“PART No. 


PAGE. 


3A012170 


3A012180 
3A012190 
3A012200 
3A012210 
3A012220 


3A012230 


3A012240 
3A012250 


3A012260° 
3A012270 
3A012280 
~ 3A012290 


3A012300 
3A012310 
3A012320 
3A012330 


34012340 


3A012350 
34012360 
3A012370 


-3A012380 


3A012390 
3A012400 
3A012410 


—3A012420 


3A012430 


~3A012440 


3A012450 


3A012460 


3A012470 
3A012480 


3A012490 | 


3A012500 
3A012510 
34012520 


3A012530. 


34012540 
3A012550 
34012560 
3A012570 
3A012580 
3A012590 
3A012600 


-3A012610 
34012620 
3A012630 


34012640 
3A012650 


—3A012660 


34012670 


3A012680 


3A012690 
3A012700 
3A012710 


3A012720 — 
- 34012730 
- 3A012740 


3A012750 
3A012760 
3A012770 


PROG ID 


PAGE 


2243962 
LOA 


03A0-0 
-10A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


O000 


PART NOw 2243962 IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1139 SYSTEM PART NO. 2243962 





a. PAGE Ll PAGE _ L1A° 
(1130 SCOPE LOOP PROGRAMS 1130 SCOPE LOOP PROGRAMS 
iO koto Rok ok & aot a tok ko kok oko koko doko dokicktctok §=3A012790 QNOOF O 4868 BOSC &Z IS DISK READY 3A013470 
| a e | | | 3A012800 0010 0 600C LOX DC INTEL * NO 3A013480 
6.09 2310 WRITE- * THIS PROGRAM WRITES ON SECTOR Oy A DATA PATTFRN 3A012819 0011 O CO3A LD DC DSW * YES | 3A013490 | 
READ-CGMPARE * WHICH WAS SET IN THE BIT SWS. THE DATA IS THEN 3A012820 0012 0 4818 . | — BSC 6- WAS LAST.OP A READ 3A013500 
ash, 4 * READ AND COMPARED TO THE BIT SWITCHES. THE HEAD 3A012830 0013 0 7034 MDX DC 6 * NO . 3A013510 
* MAY BE POSITIONED WITH SCOPE LOOP 6.08. THIS 3A012840 0014 0 0000 DC5 DC /0000 *A* LD 3 1 3A013520 
* WILL DESTROY THE SECTOR ADDRESS. IT MAY BE RE- 3A012850 0015 O FOEB EOR DC SWS COMPARE SWS 3A013530 
* STORED BY PLACING THE SECTOR NUMBER IN THE BIT 3A012860 0016 O 4820 BSC Z ANY ERRORS 3A013540 
* SWITCHES AND EXECUTING THE PROGRAM NNCE. 3A012870 0017 0 3006 WAIT 6 * YES 3A013550 
* THE PROGRAM WILL HALT AT WAIT 2 AFTER EACH PASS.~ 3A012880 0018 O COEA LD DC XR3 ADJ I/0 ADRS 3A013560 | 
, % | | 3A012890 0019 0 8OEE-— A DC BSW * : 3A013570 
A. PRELOAD SWS * SET THE AREA CODE IN O-7 FOR THE DISC TO BE USED 3A012900 OO1A 0 DOES STO DC XR3 3A013580 
—_  * DRIVE O --- 20XX 3A012910 OOLB O FO2F FOR DC END * a 34013590 
x DRIVE 1 -—-- 88XX 3A012920 O001iC 0 4820 BSC Zz REACHED LIMIT 3A013600 
% DRIVE 2 --- 90XX 3A012930 001D O TOF6 MD X DC 5 * NO ee 3A01L3610 
* DRIVE 3 --- 98XX 34012940 OO1E 0 3002 WAIT 2 | ONE PASS COMPLETE 3A013620 
* DRIVE 4 --- AOXX 3A012950 OOLF O 7OI1C MD X OC 1 START OVER : 3A013630 
| * 3A012960 | | * INITIALIZATION , a 3A013640 
B. LOADING * LOAN IPL FROM CARD OR PAPER TAPE. 3A012970 0020 0 COE1 DCBLD LD DCON5 ' GET CONSTANT | 3A013650 
: * : 3A012980 0021 0 1008 | SLA 8 : 3A013660 
C. WAITS * SET DATA IS BE WRITTEN IN SWITCHES 0-15. 3A012990 0022 0 DOES STO DC BSWE READ BIT SW IOCC 3A013670 
as * : | . | . 34013000 0023 0 O8E4 yeas) DC BSW READ SWS 3A013680 
* HALT AFTER ONE PASS. TO LOOP PROGRAM, LOAD /1000 3A013010 0024 0 CBDC LOD DC SWS GET AREA CODE 3A013690 
* INTO LOCATION /OO1E. 3A013020 0025 0 18CC RTE 12 A- /000X Q- /000X 3A013700 
€ | : | 34013030 0026 O 88DD AD DCONL A- /600X Q- /TO1X 3A013710 
* LOST WRITE INTERRUPT. SEE COMMENTS. - 3A013040 0027 0 18C4 RTE 4 “A- /X600 Q- /XT701 3A013720 
te 3A013050 0028 0 0823 STD DCDSW SET DSW IOCC 34013730 
* LOST READ INTERRUPT. SEE COMMENTS. 3A013060 0029 0 18D0 RTE 16 | A- /X701 Q- /X600 3A013740 
x | a | 3A013070 002A 0 COD9 LD DC ONL A- /6000 Q- /X600 | 3A013750 
x COMPARE ERROR BETWEEN THE DATA RFAD AND THE BIT 3A013080 002B 0 1808 SRA Bo A- /0060 Q- /X600 3A013760 
* SWITCHES. THE BITS IN ERROR WILL BE ON IN THE 34013090 o02C 0 D821 STD DCRD SET READ I0CC. _ 3A013770 
* ACCUMULATOR. TO LOOP ON ERROR, LOAD /1000 INTO 3A01L3100 002D 0 18CB RTE lL A- /C000 Q- /0COX 3A013780 
* LOCATION /0017.. | 3A013110 OO2E O FODS EOR DC ON1 ~A- /A000 Q- /O0COX 3A013790 
: : *€ | | 3A013120 002F 0 18D5 RTE 21 A- /0060 Q- /X500 3A013800 
De. RESTART * 1. TO RESTART PROGRAM OR RESET SWITCH SETTINGS,  3A013130 0030 0 DBIF STD DC WR SET WRITE L0CC | 3A013810 
| * DEPRESS IMMEDIATE STOP AND RESET PUSH BUTTONS 3A013140 0031 0 C8D4 LDD DC ON2 A- /2820 Q- /00C3 3A013820 
x 2. SET DESIRED PRELOAD BIT SWITCH SETTINGS. 3A013150 0032 0 1805 SRA 5 A- /0141 QQ /00C3 3A013830 
* 3. DEPRESS. START. 3A013160 0033 0 DO2C STO /0060 SET WORD COUNT 3A013840 
: x e~ 3A013170 0034 0 801B A DCWR. A- /OLAL Q- /00C3 3A013850 
EF. COMMENTS * 1. TO RUN THE PROG WITH INTERRUPT DELAY SWITCH 3A013180 0035 0.D0CD STO DC XR3 SET INDEX REG 3 3A013860 
* ON OR BYPASS THE INTERRUPT WAIT LOAD /600C 34013190 0036 0 0014 STO DCEND SFT LIMIT CNTL 3A013870 
* INTG LOCATION /0047 AND /004A AND RESTART. 34013200 0037 0 18C8 RTE 8. A- /C301L Q- /A100 3A013880 
* _ —_ 3A013210 0038 O DODB STO 0c5 - SET LD 3 1 3A013890 
* 2. TO GET A FASTER LOOP THAN THE ABQVE PLACE 3A013220 0039 0 FOD3 EOR DCON3 A- /N300 Q- /A1L00 3A013900° 
* /TOFE IN THE NEXT LOCATION AFTER THE XIO. THE 3A013230 003A 0 D003 STO pcs SET STO 3 0 3A013910 | 
Ss XIO WILL BE EXECUTED AFTER EACH BRANCH. 3A013240 003B 0 3001 — WAIT 1 SET DATA PATTERN 34013920 
# | : | 34013250 003C O O8CB DCl X10 DC BSW READ BIT SWS 3A013930 
* 3. IF INTERRUPT IS LOST, B REG WILL CONTAIN 3A01L3260 003D 0 COC3 LD DC SWS GET BIT SwWs 3A013940. 
* DATA. WORD AND ARITH REG WILL CONTAIN WAIT 3A013270 003E 0 0000 DC3 DC /0000 *A* STO 3 0 3A013950 
* NUMBER /0003 OR /0004. 3A013280 003F 0 COC3 LO DC XR3 ADJ 1/0 ADRS 3A013960 
* 7 | 3A013290 0040 0 90C7 S DC BSW. * | 3A013970 
ates - Me ee A A HERE EK RE KE KEKE EK 3A013300 0041 0 DOC1 STO —DCXR3 * 3A013980 
0000 7 ~ ORG ¢) | | ~  3A013310 0042 0 FOOD FOR  DCWR 3A013990 
9000 0 6020. DCBGN LDX DC BLD GO TO PROG 3A013320 0043 0 4820 BSC Z REACHED LIMIT 3A014000. 
0001 0 0000 DCSWS DC e & SW READ IN AREA 3A013330 0044 0 T7OF8 MD X DC 3-1 * NO 3A014010° 
- -0002 0 003A. DCONS DC /003A CONSTANT 3A013340 0045 0 D006 STO DCOSW * YES, CLEAR SW 3A014020 
~- 0003 0.0000 . DCXR3 OC. x—% INDEX REG 3 34013350 0046 0 0809 X10 “OCWR WRITE A RECORD 3A014030 
0004 0° 6000: DCON1 DC ‘(6000 CONSTANT 3A013360 0047 0 3003 WAIT 3 : WAIT FOR WRITE INTR 34014040 
-. 0005 0) 7010 — pc 4/7010 CONSTANT 3A013370 0048 0 6803 DC6 STX DC DSW SET SWITCH 3A014050 
- .9006 0 2820 . -DCON2 DC 12820 CONSTANT — 3A013380 0049 0 0804 "3 x10 DC RD > READ A RECORD 3A014060 
-. .9007 0 00C3 . | DC  100C3 CONSTANT 34013390 © 004A.0 3004 WAIT 4° WAIT FOT READ INTR 3A014070 
0008 90 0001, DCBSW DC DC SWS SW READ IN ADRS. 3A013400 7 JR KER Rok to etka ko ok iio ai look took doko tok ik kite ake = 3A014080 
~ .9009 0 0000. ~~ oc /0000 *A* DC 43A00 READ BIT SWS 3A013410 0048 0 0040 DCEND DC — £0040 THE NEXT FIVE WORDS ARE 3A014090 
_ 000A 0 0008 DC’ OCINT INTERRUPT ADRS 3A013420 004C 0 9000 DCDSW DC | /9000 * USED FOR PROGRAM | 3A014100 
9008 0 0000 DCINT DC — % INTERRUPT ENTRY 3A013430 004D 0 2000 — pc /2000 * IDENTIFICATION. THREE 3A014110 
,000C .0 083F X10 DC OSW SENSE DSW 3A013440 OO4E 0 2000 DCRD DC /2000 * FOR THF PID AND TWO FOR 3A014120 
0000.0 1001: DCON3 SLA l ALSO A CONSTANT 3A013450 OO4F 0 0001 : pc 70001 * SFQUENCE. 3A014130 
i, QOOE, 0 1001 © SLA al * 7 . 34013460 0050 0 DCWR EQU DCRDE2 34014140 
DATE. s V§FEB68 |. 255UL69_ PROG ID 03A0—-0 DATE 15FEB68 25JUL69 PROG ID 03A0-0 
 REUNOS: 420403. 7571053 — PAGE il | €C NO. 420402 #4571053 PAGE LLA 


~~ 


18M MAINTENANCE. DIAGNOSTIC PROGRAM. FOR THE 1130 SYSTEM 


1130 SCOPE LOOP. PROGRAMS 


fe: 


DATE 
EC NO. 


6.10 1627 PLOTTER 


A. PRELOGAD SWS 


B. LOADING 
CC. WAITS 1 
2 
3 
N. RESTART 
Es COMMENTS 
0000 
0000 0 6012 
0001 0 0001 
0002 0 0006 
0003 0 003A 
0004 0 0006 
0005 0 0029 
0006 0 9900 
0007 0 002F 
0008 0 601F 
0009 0 0000 
000A 0 9000 
000B 0 000C 
000C 0 0000 
0000 0 O8F8 
OO0E 0 DOFA 
OOOF 0 4850 
0010 0 7OFC 
OO1lL 0 7023 
15FEB68. 25JUL69 
420403 571053 


PART NO. 2243962 


PAGE 


JOG tig oi iok tok itoigiiok dito gdotoaiaiotatok tek dok gota dak kak 3A014160 


le 
20 


3e 


Qe 


NO 


* 
* 
* 
* 
* 
* 
x 
*. 
x 
* 
* 
x 
* 
x 
* 
* 
e 
* 
* 
& 
* 
* 
* 
* 
* 
* 
* 
* 
x 
* 
a on 
* 
* 
* 
rd 
* 
* 
* 
* 
x 
* 
x 
* 
x 
x 
am 
x 


PLBGN 


PLONE | 


PLBSW 
PLOT 
PLDOSW 


PLRST 
PLDSV 


- PLSET 


PLIN3 


THE PROGRAM EXECUTES ALTERNATE FUNCTIONS — 


WHICH HAVE BEEN SELECTED 


IN THE BIT SWS 


AN OPTION IS AVAILABLE TO SET UP A VARIABLE 
DELAY BETWEEN XIO WRITE EXECUTIONS. 

AN OPTION IS AVAILABLE TO HALT THE PROGRAM 
AFTER THE COMPLETION OF THE EXECUTION OF 

AN ALTERNATE XIO SEQUENCE. 


IF DELAY IS DESIRED, SET DELAY CONTROL 
VALUE -IN BIT SWITCHES 1 THRU 13. 
*NOTE* SWS 1 THRU 13 ALL ON,» MAX DELAY. 


SWS 1 THRU 13 ALL OFF, 


NO DELAY. 


IF A WAIT AFTER EACH: PROGRAM PASS IS 
TURN ON BIT SWITCH 15. 


NESTRED, 


LOAD IPL FROM CARD OR PAPER TAPE. . 


SET DESIRED FUNCTION CODES IN BIT SWITCHES 
OQ THRU 15. SEE PAGE 2A FOR BIT SW CODES. 
LST FUNCTION CODE IN SWS O THRU 5. 
2NO FUNCTION CODE IN SWS 8 THRU 13. 
TURN ON PLOTTER AND MAKE READY. 7 
DEPRESS START. © 


NORMAL PROGRAM WAIT IF 1 PASS OPTIGN HAS BEEN 
SELECTED. DEPRESS START TO MAKE ANOTHER PASS. 


INTERRUPT GENERATED AFTER XIO WRITE 


COMMAND WAS GIVEN. SEE COMMENTS. 


TO RESTART PROGRAM OR RESET INITIAL PRELOAD © 
SWITCH SETTINGS, DEPRESS IMMEDIATE 

STOP AND RESET PUSH BUTTONS. 

SET DESTRED PRELOAD BIT SWITCH SETTINGS. 


DEPRESS START. 


LAST DSW SENSED IS DISPLAYED IN THE Q REG. 


IF NO FUNCTION ENTERED IN'BIT SWS, 


PROGRAM 


STOPS AT WAIT 1. 
TO RUN PROGRAM WITH INTERRUPT DELAY SW ON 


OR TO BYPASS THE INTERRUPT WAIT, 
INTO LOCATION 
TO SET UP LOGP TO EXECUTE XIO, 


LOAD /6000 
/0034 AND DO A PROGRAM RESTART. 
LOAD /600D 


INTO LOCATION /0034 AND LOAD /6035 INTO 
LOCATION /0010 AND DO A PROGRAM RESTART. 


ORG 


PLRET 


too dat io io io dot ii idiot dot i ioioi io tok taiaiak dated 


0 
PLBLD *A* TO /601E LDX PLROS 
1 CONSTANT ONE | 
PLDSW BIT SW SAVE AREA 
JO0O3A *A* TO /3A00 RD BIT SWS 
PLOSW CHARACTER ADDRESS 

~ 10029 *A* TO /2900 XIO WRITE 
aiaeetid BIT SW READIN AREA 
/O002F *A* TO /2FOL XIO SENSE 
PLRDS RESET START MOD 
*-—* DSW SAVE AREA 
x = SW OPTION/DELAY SAVE 
PLIN3 INTERRUPT ADDRESS 
se INTERRUPT LEVEL 3 
PLOSW SENSE RESET DSW. 
PLODSV SAVE DSW 
~ RESET INT LEVEL 
PLIN3E1 RESENSE DSW 

BRANCH TO DELAY 


3A014170 
3A014180 
3A014190 
3A014200° 
3A014210 
3A014220 
3A014230 
3A014240 
3A014250 
3A014260 
3A014270° 
34014280 
3A014290 
34014300 
3A014310 
3A014320 
3A014330 
3A014340 
3A014350 
3A014360 
3A014370 
3A014380 
34014390 
3A014400 
3A014410 
3A014420 
3A014430 
3A014440 
— 3A014450 
3A014460 
3A014470 
34014480 
3A014490 
3A014500 
3A014510 
34014520 
3A014530 
3A014540 
3A014550 
—3A014560 
34014570 
34014580 
3A014590 
34014600 
3A014610 
3A014620 
3A014630 
3A014640 
3A014650 
3A014660 
3A014670 
3A014680 
3A014690 
- 3A014700 
3A014710 
3A014720° 
34014730 
3A014740 
3A014750 
3A014760 
3A014770 
3A014780 
3A014790 
34014800 
3A014810 
3A014820 
3A014830 


PROG ID. 
PAGE 


12 


03A0-0 
12 


DATE 
EC NO. 


IBM MAINTENANCE 


1130 SCOPE LOOP 


DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


RAMS 


25 JUL69 
571053 


al SN 
. 


PROG 
0012 0 COF2 
0013 0 1008 
0014 0 POFO 
0015 0 COF1 
0016 O 1008 
0017 O E8BES 
0018 0 DOEE 

0019 0 COE9 
OO1A O 1008— 
001B 0 DOE7T 
001C 0 COEB 
001D O DOE2 
OOLE O OBE3 
OO1F 0 COE6 
0020 0 DOES 
0021 0 3001 

0022 0 OS8DF 
0023 0 COE2 

0024 0 180A. 
0025 0 4808 
0026 O TOFA 
0027 O CODE . 
0028 0 1008 
0029 0 180A 
002A 0 4808 
002B 0 TOF5 
002C o C8DB 
002D 0 08D8 
O02E 0 DODA 
O02F 0 1004 
0030 0 4828 
0031 0 TOFA 
0032 0 C8D5 
0033 0 08DO 
0034 0 3003 
0035 0 C8D2 
0036 0 COD3_ 
0037 0 1801 
0038 0 90CB 
0039 0 4810 
003A 0 TOFD 
003B 0 COCA 
003C 0 4804 
003D 0 3002 
003F O 1802 
O03F 0 4818 
0040 0 7OEO 
0041 0 LOOA 
0042 0 DOC3 
0043 0 COCF 
0044 0 4820 
0045 0 7002 
0046 O 68CC 
0047 O TODA 
0048 0 1010 
0049 0 DOC9 
004A 0 TOE] 
004B 0 0040. 
004C 0 9000 
004D 0 2000 
O04E 0 1000 
004F O 2000 

15FEB68 
420403 
px ~~ 

oS. . 


, 


He Rea ee to a ah KR ER EERE EERE EEE EEE EEE EE KES E 
THE LAST FIVE WORDS ARE 


PLOT&1 


PLBLD LD 
PLCTL SLA 8 
STO PLOTE&l 
LD PLOSWEL 
SLA 8 
OR PLONE. 
sTO PLDSW6l 
LD PLBSWEl 
SLA 8 
STO  PLBSWEL 
LD  PLRST 
+ §TO -PLBGN 
PLROS XI0 PLBSW 
LD ' PLDSW 
STO PLSET 
WAIT OL 
PLSTR XxIO PLBSW 
LD PLOSW 
SRA 10 
BSC & 
MDX PLSTR-1 | 
LD PLDSW 
SLA 8 
SRA 10 
BSC & 
| MDX PLSTR-1 
PLSEN LND PLDSV-1 
| X10 PLOSW 
STO PLDSV 
SLA 4 
BSC &2 
MDX | PLSEN 
LDD PLDSV-1. 
x10 PLOT 
WAIT 3 . 
PLRET LOD PLDSV-1 
LD PLSET 
SRA l 
PLLOP §S PLONE 
BSC - 
MDX PLLOP 
LD PLDSW 
— BSC E 
WAIT 2 
SRA 2 
BSC E- 
MDX PLSTR-1 
SLA 10 | 
sTO PLDSW 
LD PLCTL 
BSC Zz | 
MDX PLALT 
STX PLCTL 
MDX PLSTR 
PLALT SLA 16 
STO PLCTL 
MDX PLSEN 
DC 10040 
DC /9000 
DC 42000 
DC /1000 
DC /2000 
we = . ) ~ 


BUILD WRITE YOCC 


* 2ND CHAR SW 


x 


BUILD SENSE RESET 


te 
* 
* 


* 


BUILD READ 
* IOCC 


BIT SW 


SET UP RESET AND 


* START BRANCH 
READ BIT SWS FOR 


* 


_* PROG OPTS/DELAY 


SET CHARS IN SWS 


READ BIT SWS 
CK FOR NO COMMAND 


* ENTERED 


* 


x 
* 
* 
* 


* 


* NO, 


* 
* 


NO, SENSE SWS 


0, SENSE SWS 

LOAD LAST DSW INQ. 
CHK DEVICE NOT BUSY | 
SAVE DSW 
* 


LOAD LAST OSW INQ . 
WRITE CHARACTER 

WAIT FOR INTERUPT 
LOAD LAST DSW INQ. 
SET UP DELAY AND 

* EXECUTE DELAY 


7 


* 
x 


LD» 


C 


NO, 


GO 


SET UP 2ND CHAR. 
HK IF WAIT REQUSTED 
YES , 


NO» CHK 2ND CHAR OK’ 
* : : 


TO WAIT 1 
YES, SET UP 2ND CHAR 
* ; 


CHK IF 2NO CHAR SW 


* OFF 
NO» 


BRANCH 


YES, SET 2ND CHAR SW 
GO LOOP PROGRAM 

CLR 2ND CHAR SW 

x. 


GO CHK IF PRINT BUSY 


ee 


USED FOR PROGRAM 
IDENTIFICATION. THREE 


FOR THE PID 


SEQUENCE. 


AND TWO FOR 


PART NO. 2243962 


PAGE 


3A014840 
34014850 
3A014860 
34014870 


3A014880 — 


3A014890 
34014900 
3A014910 
3A014920 
3A014930 


3A014940 > 


34014950 


3A014960. 


34014970 
3A014980 
3A014990 
3A015000 
3A015010 
3A015020 


-3A015030 


3A015040 


34015050 
-3A015060 


34015070 


34015080 


3A015090 
3A015100 


— 3ZA015110 


3A015120 . 


34015130 
3A015140 
3A015150 
3A015160 
3015170 


3A015160. 


34015190 
3A015200 
34015210 
34015220 
3A015230 
34015240 
34015250 
3A015260 
3A015270 
34015280 
3A015290 


3A015300 


3A015310 
34015320 
34015330 
3A015340 


3A015350 | 


3A015360 
3A015370 


S 


3A015380 


3A015390 
3A015400 
3A015410 


3A015420 


3A015430 
3A015440 
3A015450 
3A015460 
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1130 SCOPF LOOP PROGRAMS 1130 SCOPF LOOP PROGRAMS 


RC RoC Ro oi coii igi i iotok tli took aa doktob ik 4k 34015480 | 0014 


0 £922 CRLD LD CRARAEL LOAD COLUMN READ | 34016160 
x ; | | . 3A015490. | 9015 0 DOF2 STO CRERR SAVF BITS READ | 3A016170 
62-11 2501 READER * 1. THE PROGRAM READS 80 COLUMNS OF DATA AND 34015500. 0916 0 FOED FOR CROSW COMPARE WITH PATT WD 3A016180 
7 * COMPARES EACH WORD WITH THE BIT SWITCHES. 3A015510 0017 90 4818 BSC &- -CK FOR COMPARE ERR  3A016190 
| * 2. AN GPTION IS AVAILABLE TO SET UP A VARIABLE 3A015520 0018 0 7006 MDX CRMBD NO, SET UP NEXT CHK | 3A016200 
* DELAY BETWEEN X10 READ EXECUTIONS. 3A015530 90019 0 COLB LD CRBLD YES, CK LOOP OPT 3A016210 
| * 3. AN OPTION IS AVAILABLE TO BYPASS WAIT 6 3A015540 OOLA O LOOF | SLA 15 | * 3A016220 
* ON COMPARE ERRORS. | 34015550 7 OOLB O 4828 BSC awd * -3A016230 
* i | 3A015560 | QO1LC O TOOA Mn) xX CRLOP-3 LO0P ERR OPTION ON 3A016240 
A. PRELOAD SWS * 1. IF DELAY IS DESIRED, SET DELAY CONTROL 3A015570— O01D O C8EA LDD CRERR LD DSW AND ERR BITS 3A016250 
* VALUE IN BIT SWITCHES 1 THRU 13. 34015580 : NOLE O 3006 WAIT 6 | COMPARE ERROR WAIT 3A016260 
* *NOTE* SWS 1 THRU 13 ALL ON, MAX DELAY. 3A015590 ) OOLF 0 COF4 CRMOD LD CRLD SET UP NEXT COMPARE 3A016270 
* SWS 1 THRU 13 ALL OFF, NO DELAY. 3A015600 : 0020 0 8B0ED A CRONE * 3A016280 | 
* 2. IF BYPASS COMPARE ERROR WAIT 6 OPTION IS 3A015610 QO021 0 NDOF2 STO CRLD — a | 3A016290 | - 
* DESTRED, TURN ON BIT SWITCH 15. 3A015620 0022 0 SOET S CREND CK IF ALL COLUMNS 3A016300 ‘i 
* 3 | 34015630 0023 0 4878 BSC &Z * CHECKED —  3A016310 
Be LOADING * LDAD IPL FROM CARD OR PAPER TAPE. 3A015640° 0024 0 TOEF MI) X CRLD NO, COMPARE NXT COL 3A016320 
* 3A015650 2 0025 0 COF5 Lo CRSRA SET UP FOR NXT CARD —  3A016330 
C. WAITS 1 * SET BIT SWS 0 THRU 11 TO EXPECTED COLUMN 3A015660 0026 0 NOED ST) CRLN * | 3A016340 
* DATA AND SET BITS 12 THRU 15 OFF. | 3A015670 | 7 0027 0 C8FO LDD ~ CRERR LOAD LAST DSW IN Q 3A016350 
* LOAD PREPUNCHED CARDS INTO READER AND MAKE READY.3A015680 0028 0 CNO0C LD CRBLD SET UP DELAY | 3A016360 
* DEPRESS START. | | 3A015690 0029 0 1891 SRA 1 * _ 3A016370 
* : 3A015700 . 002A 0 90D6 . CRLOP §S CRONE * 3A016380 
4 * NO INTERRUPT GENERATED AFTER XIO READ. 3A015710 002B 0 4810 BSC = * 3A016390 
* COMMAND WAS GIVEN. SEF COMMENTS. 3A015720 | 002C N TOFD MDX CRLOP * | 3A016400 
* 3A015730. 0020 0 O8N4 CRSTR X10 CRBSW. ~ RD BIT SWS PATT WD 3A016410 
6 * COMPARE ERROR. ACCUMULATOR CONTAINS BITS READ. 3A015740 | | | QO02E 9 O8D7 XTO CRRDR READ A CARD 3A016420 
* IF ACCUMULATOR CONTAINS /DOCB, COLUMN READ WAS 3A015750 | | O002F 0 3004 o WAIT 4 | WAIT FOR INTERRUPT 3A016430 
* NOT STORED INTO READ/IN AREA. 3A015760 | c 0030 0 O8D1 : CRRST XIN CRBSW RD SWS FOR. DELAY/OPT 3A016440 
* DEPRESS START TO COMPARE NEXT COLUMN. ~3A015770 | | 9031 0 CONn2 LD ~CRDSW- SAVE DELAY/OPTIONS | 3A016450 
* TO BYPASS COMPARE ERROR WAIT, SEE PRELOAD. | 3A015780 . 0032 0 DNN2 STO CRBLD x | 3A016460 
a * 34015790 : | 0033 9 3001 WAIT l SET PATTERN IN SWS 3A0L6470 
ND. RESTART x 1. TO RESTART PROGRAM OR RESET INITIAL PRELOAD 3A015800 | 0034 0 TOFB , MDX CRSTR GO READ BIT SWS 3A016480 
x SWITCH SETTINGS, DEPRESS IMMEDIATE _ - 3A015810 a | 0035 0 COCD | CRBLD LD CRBSWEL BUILD PROGRAM 3A016490 — 
x STOP AND RFSET PUSH BUTTONS. 3A015820 © 0036 0 1908 CRARA SLA 8 *A* TO /0050 WD CNT 80 —  3A016500 
* 2. SET DESIRED PRELOAD BIT SWITCH SETTINGS. 3A015830 | 0037 0 NOCR STO -CRBSWE]L *A*® TO *-* READ/IN AREA -3A016510 
* 3. DEPRESS START. | 3A015840 | | 0038 0 COCB | LD CRDSW * | 3A016520 
7 x | | 3A015850 0039 0 DOC6E STO CRBGN * 3A016530 
E. COMMENTS * 1. LAST DSW SENSED IS DISPLAYED IN THE Q REG. 3A015860 | | | 003A 9 COCA LO CRDSWE1 * 3A016540 
* 2. TO RUN PROGRAM WITH INTERRUPT DELAY SW ON | 3A015870 093B 0 1901 SLA 1 * 3A016550. 
* OR TO BYPASS THE INTERRUPT WAIT, LOAD /600F 34015880 003C 0 EBC4 OR , CRONE * 3A016560. 
* INTO LOCATION /002F AND DO A PROGRAM RESTART. 3A015890 : | : 0030 9 1008 | SLA 8 * 3A016570 
* 3. TO SET UP LOOP TO EXECUTE XIOQ, LOAD /600F 34015900 OO3E 0 E8C2 OR CRONE * 3A016580 
x INTO LOCATION /O002F AND LOAD /6027 INTO 3A015910 | 003F 0 NOC5 : STO CRDSWEl * 3A016590 
* LOCATION /0013 AND DO A PROGRAM RESTART. 34015920 | 0040 0 COCé6 ED CRRNREL- * 3A016600 
x : 3A015930 0041 0 1009 SLA 9 * 3A016610 
Re oi Rg sok aR Boke gobo gk bok RE REE REAR KHER 34015940 | 0042 0 DOC4 STO CRROREL * 34016620. 
0009 7 : ORG  O - 3A015950 | 0043 9 COC9 | Lp CRO80 * 3A016630 
9000 0 6035 CRBGN LDX CRBLD *A* TO /6030 LDX CRRST 34015960 | | | 0044 0 1004 | SLA 4 * 3A016640 
0001 0 0001 | CRONE DC 1. CONSTANT 1 | 3A015970 | 0045 0 DOFO STO CRARA * 3A016650 
0002 0 0004 rf CRBSW DC CROSW BIT SW SAVE ADDR 3A015980 | | 0046 0 80C4 A | CRSRA * .3A016660 
9003 0 003A DC 003A — ¥A* TO /3A00 RD BIT SWS 3A015990° - 5 0047 0 DOC2 STO CREND * : 34016670 
9004 0 6030 ~CRODSW LDX CRRST BIT SW SAVE AREA 34016000 0048 0 TOET MDX CRRST EXECUTE PROGRAM | , 3A016680 
9005 90° 0027 : ~ DC /0027 *A* TO /4F01 X10 SENSE OSW 3A016010 , . a | faa i i iio ta do tok tok eto aio dot tet 3A016690 
0006 0 0036 ~ €RRDR DC CRARA CARD READ IN ADDR 34016020 | | | 3 0049 0 0000 DC 0 SPACE FILLER _ -3A016700 
0007 0 0027 DC /002T *A*® TO /4E00 XIO START RDR 3A016030 | - . 0044 0 0000 DC 0 * 3A016710 
0008 0 OOFF — CRERR DOC /OOFF SAVE READ ERROR 3A016040 . 004B 0 0040 DC 0040 THE LAST FIVE WORDS ARE 3A016720 
0009 0 0000 CROSV DC *— x LAST DSW SENSED 3A016050 | N04C 0 9000. DC. 49000 * USED FOR PROGRAM 3A016730 — 
000A 9 0000 ~ CREND DC -<* *A* TO /DLIA END OF RD AREA 3A016060 = | 004D 0 2000 | DC 12000 * IDENTIFICATION. THREF 3A016740 
OOOB 0 C022 | CRSRA DC C022 ~ LO READ AREA 3A016070 O04E 0 1000 DC | 41000 * FOR THE PID AND TWO FOR = 3A016750 
N900C O ODODE DC CRING INTERRUPT ADDR 34016080 nae — 004F 0 1000 DC 41000 * SEQUENCE. | | 3A016760 
0000 0 0005 | CRO80 DC /0005 *A* TO /0050 CONSTANT 80 3A016090 7 | 
OOOF 0 90000 | - CRIN4 DOC *—* INTERRUPT ENTRY 3A016100 
OOOF 9 O8F4 X10 CRDSW SENSE OSW 3A016110 
0010 0 NOFB STO CRDSV SAVE DSW ; 3A016120 
N011 9 1004 | SLA 4 CK FOR OP COMPLETE 3A016130 
90012 0 4850 BOSC ie * | 3A016140 
0013 0 7TOFB 4 /  . MDX CRINGEL NO» RESENSE DSW 34016150 
DATE L5FER68B ?5J5UL 69 | | PROG ID = 03A0-0 DATE 15FEB68 . 25JUL69 PROG IO 03A0-0 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


DATE 


EC 


NO. 


6.212 


1130 SCOPE LOOP PROGRAMS 


1403 PRINTER 


A. PRELOAD SWS 


Be LOADING 


C. WAIT 1 
2 
3 
5 
D. RESTART 
E. COMMENTS 
0000 
0000 0 6033 
0001 0 0000 
- 0002 0 DO0O 
0003 0 FOLO 
0004 0 9000 
0005 0 C000 
0006 0 0001 
0007 0 003A 
0008 0 0004 
0009 0 9000 
000A 0 0033 
000B 0 OOOA 
000C 0 OO1E 
000D 0 O8FB 
OOOE 0 COF2 
QOOF 0 DOEE 
0010 0 1803 
0011 0 DOF2 
0012 0 3001 
0013 0 OsF2 
0014 0 COLD 
0015 0 DOEC 
0016 0 COEA 
OOL7 O 00D2 
0018 0 COE9 
0019 0 90EC 
O01A 0 4820 
001B 0 70F9 
OO1C 0 OBED 
15FEB68 25JUL69 
420403 571053 


* 
* 
+ 
* 
x 
* 
* 
x 
x 
* 
* 
* 
* 
* 
x 
* LOST PRINTER INTERRUPT. 
ee 
* 
* 
x 
* 
* 
x 
* 
x 
ak 
xk 
* 
* 
* 
k 
x 


SCT eTree rT STS ST ee eT SSS SSC TTT ST SS TST eee TS eT ee eT TS 


THIS PROGRAM WILL PRINT ANY CHARACTER ENTERED 


PART NO. 


PAGE 


3A016780 


3A016790 


3A016800 


IN THE BIT SWITCHES 1-7 AND 9-15. IF BIT 14 IS 0N3A016810 


THE BIT SWS 1-12 WILL BE THE CHANNEL THAT THE 
CARRIAGE WILL SKIP TO AFTER PRINTING. 


BIT SW 15—- HALT AFTER ONE PASS. 
--14= CARR SKIP FUNCTION. 
‘1 THRU 12— CHANNEL NUMBER TO USE FOR SKIP. 
IPL MODE FROM CARDS OR PAPER TAPE. 
SET CHARACTER TO PRINT, 1-7 AND 9-15. 


ONE PASS COMPLETED, PRESS START TO CONTINUE. 


LOST CARRIAGE INTERRUPT. 
PARITY ERROR FOUND IN THE DSW. 


PRESS IMMEDIATE STOP AND RESET. PRELOADING 
SWITCHES MAY BE SET AS DESIRED. PRESS START. 


1. TO RUN THE PROG WITH INTERRUPT DELAY SWITCH 
ON OR BYPASS THE INTERRUPT WAIT LOAD /601F 
INTO LOCATION /001D AND /0030 AND RESTART.~ 


2 TO GET A FASTER LOOP THAN THE ABOVE PLACE 
JTOFE IN THE NEXT LOCATION AFTER THE XI1Q. THE 
X10 WILL BE EXECUTED AFTER EACH BRANCH. 


toa ca do RR tok od oe ok ok OK 


ORG % QO 
LDX FPBLD *A* LDX FPSTR 
FPSWS DC %—& BIT SWITCH STG 
.-FPOSW DC /D000 *A* WORD COUNTER 
DC /F010. *A*® DC SAFO 
FPCAR DC 9000 CHANNEL BITS 
DC /C 000 *A* DC /ACOO CARR CNTL 
FPBSW DC FP SWS BIT SW STG ADRS € ONE 
oC  f003A *A* DC /3A00 READ BIF SWS 
FPSKP DC FPCAR | CARR CHAN ADRS 
DC 79000 *A* DC 7JA900- SKIP IYOCC 
FPPRY DC FPOUTE&1 PRINT AREA ADRS 
* pc /OO0A *A*® DC /ADOO PRINT IOCC 
DC FP INT INTERRUPT AORS 
* 
* START AND RESTART OF PROGRAM 
5 « 
FPSTR XIO FPBSW READ BIT SWITCHES 
LD FPSWS. GET SW SETTINGS 
STO FPSWS-3 * AND SAVE 
SRA | 3. 
STO FPCAR SET CHAN NUMBER 
"WAIT 1 | SET CONSOLE SWS 
FPL X10 FPBSW READ PRINTER CODE 
LD FPOUT GET WORD COUNT 
STO. FPDSW LOAD XR 2 
LD FPSWS GET PRINT CODE 
FR2 DC | /00D2 *A* STO 2 FPOUT 
LD  FPDSW © GET COUNT AND 
S FPBSW * SUB ONE 
BSC Z . AREA FILLED 
MDX FP 2-2 * NO . 
X10. FPPRT PRINT A LINE 
y Ny = a ea 
wy y Zw ee = / 


3A016820 
3A016830 
3A016840 


- 3A016850 


3A016860 
3A016870 


3A016880 | 


34016890 
3A016900 
3A016910 
3A016920 


3A016930 © 


34016940 
3A016950 
3A016960 
3A016970 
34016980 
34016990 
34017000 
3A017010 
3A017020 
3A017030 
34017040 
3A017050 
3A017060 
3A017070 
3A017080 
3A017090 
3A017100 


3A017110. 


3A017120 
3A017130 
3A017140 
3A017150 


3A017160 


3A017170 
3A017180 
34017190 
3A017200 
3A017210 
3A017220 
3A017230 
3A017240 
3A017250 
3A017260 
3A017270 
3A017280 
34017290 
3A017300 
3A017310 
3A017320 
34017330 
3A017340 
3A017350 
3A017360 
3A017370 
3A017380 
3A017390 
3A017400 
3A017410 
34017420 
3A017430 
34017440 
3A017450 


PROG ID 


PAGE 


2243962 


14 


03A0-0 
14 


se ee rr a 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1130 SCOPE LOOP PROGRAMS 


001D 0 3003 
OOLE 0 0000 
OO1LF O O8E2 
0020 0 4844 
0021 0 601F 
0022 0 4828 
0023 0 3006 
0024 0 1002 
0025 0 4810 _ 
0026 O 7OEC 
0027 0 COD6 
0028 0 4804 
0029 0 3002 
002A 0 100E 
0028 0 4810. 
002C 0 7002 
002D 0 O8DA 
-002E 0 7001 
O02F 0 O08D4 
0030 0 3005 
0031 0 0001 
0032 0 003C 
0033 0 COL3 
0034 0 DOCB 
0035 0 C8D5 
0036 0 88CD 
0037 0 18C4 
0038 O DS8CB 
0039 0 DOCF 
003A 0 C8DO 
003B 0 88C6 
003G 0 18C4 
003D 0 D8C4 
003E 0 DOCC 
003F 0 COC7 
0040 0 1008 
0041 0 DOCS 
0042 0 COD4 
0043 0 1008 
0044 0 E8C5 
0045 0 90EB 
0046 0 DODO 
0047 0 600D 
0048 0 0000. 
0049 0 0000 
004A 0 0000 
0048 0 0040 
004C 0 9000 
004D 0 2000 
004E 0 1000 
OO4F O 0800 
DATE 15FEB68 25JUL69. 
| €C NO. 420403 571053 
/ | | yf x 


FP INT 


FPB 


FPOO1 
FPOUT 
* 


FPBLD 


FPRES 


WAIT 3 
DC *— k INTERRUPT ENTRY 
X10. FPDSW SENSE DSW 
BOSC EE IS PRINTER READY 
LDX FPINTE1 * NO | 
BSC &Z PARITY ERROR 
WAIT 6 * VES. 
SLA 2. * NO. =, 
BSC _- PRINT COMPLETE 
MDX FP1 * NO, CARR INTR 
LD FPSWS-3 GET CONTROLS 
BSC E HALT ON 
WAIT 2 * VES 
SLA 14. * NO 
BSC - CARR SKIP FUNC - 
~ MDX FPSB * NO i 
x10 FPSKP SKIP TO CHAN. 
. MDX FPBEL GO WAIT INTERRUPT 
XIo FPCAR * YES, SPACE | 
WAIT 5 WAIT FOR CARR INTR 
DC 7/0001 CONSTANT 
DC 60 — WORD COUNT 
THIS WILL BE THE PRINT AREA AFTER 
INITIALIZATION i 
LD FPRES | ; 
STO 0 * SET RESTART 
' LDD FPPRT+1 * A- /O000A Q- /O0O0A 
“AD FPCAR * A- /COOA Q- /900A 
RTE 4 * A- /ACOO Q- /A900 
STD FPCAR * CONTROL IOCC 
STO FPSKPE1L * SKIP IOCC ee 5 
LOD FPPRT41 * A- /000A Q- /O00A 
AD FPDSW. #* A- /DOOA Q— /FOIA 
RTE 4 * A- /AD0O0 Q- /AFOL 
‘STD FPDSW * SENSE DSW IOCC | 
STO FPPRTEL * PRINT IOCC 
LD FPBSWEl * : | 
SLA 8 | 
sTO FPBSWEL * READ BIT SW IOCC 
iD Fp2 * 
SLA 8 & 
OR — FPPRT eS. 
S FPO0O1 ADJUST .DISPLACEMENT. 
STO FP2 * BUILD STO £2 FPPRT 
LOX -FPSTR © GO TO PROGRAM 
WH RE He He He Re Re Me eK KH KKK KEKE SEKKESEKSEKEKESKKKESKEKEKE 
OC 0 SPACE FILLER 
DC 0 * 
DC 0 * 
DC 10040 THE LAST FIVE WORDS ARE 
DC 79000 * USED FOR PROGRAM 
DC 12000 * IDENTIFICATION. THREE 
DC /1000 * FOR THE PID AND TWO FOR 
DC /0800 * 


WALT FOR PRINT INTERRUPT 


SEQUENCE. 


PART NOw 2243962 


PAGE 


3A017460 
3A017470 
3A017480 
3A017490 
3A017500 
3A017510 


~3A017520 


3A017530 


34017540 
30017550 
3A017560 
34017570 
3A017580 
3A017590 
3a017600 
3A017610 


3A017620 | 


3A017630— 


- 3A017640 


3A017650 
3A017660 
3017670 
34017680 
34017690 
3A017700 
3A017710 
3A017720 
34017730 


30017740 
3A017750 
34017760 


3A017770 
3A017780 


3A017790 


3A017800 
3017810 
3a017820 
34017830 
3A017840 
34017850 
3A017860 


-3A017870 
34017880 


34017890 
34017900 


3A01L7910 
- 34017920 
3A017930 


3A017940 
3A017950 
3A017960 
3A017970 
3A017980 
3A017990 


_3A018000 


3A018010 


3a018020 


PROG ID. 


PAGE 


a 
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03A0-0 
L4A * 
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a . 


TBA MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


1130 SCOPE LOOP PROGRAMS 


DATE 


6.13 1132 PRINTER 


A. PRELOAD SWS 
B. LOADING 
C. WAIT 2 
3 
5 
D. RESTART 
E. COMMENTS 
0000 , 
0000 0 6017 
0001 0 3005 
0002 0 OOLA 
0003 0 OOFF 
0004 0 0018 
0005 0 E8CB 
0006 0 7013 
0007 0 4803 
0008 0 0020 
0009 0 OOOA 
000A 0 0827 
O00B 0 O80C ~ 
Q00C 0 4850 
000D 0 7023 
O0O00E 0 C018 
OOOF 0 4820. 
0010 0 7018 
0011 0 C039 
0012 0 4808 
0013 0 7027 
0014 0 9034 
0015 0 D035 
0016 0 7023 
0017 0 COF2 
0018 0 DOET. 
15FEB68 25JUL69 
420403 571053 





PART NO. 
PAGE 


ate ee kok ke tok tok aa a tok dotok dob tok ak doe eR RE 34018040 


* 
x 
* 
rs 
* 
x 
ot 
*x 
x 
* 
* 
* 
x 
rd 
x 
x 
& 
* 
* 
* 
we 
x 
x 
x 
x 
x 
Fd 
x 
* 
x 
- 
* 
* 
ote 
ax 
ok 
x 
x 


ORG 
LDX 
WAIT 


PRGO 


% : 
PRRDS DC. 


PRRD DC 


PRIDL DC 


PRINT DC 
X10 
BOSC 
MDX 
LD 
BSC 


LD 
BSC 
MD X 
S 
STO 
MD X 
LD 
PRDSW STO 


MDX 


THE CHARACTER ENTERED IN SWS O-7 IS PRINTED IN 
ALL PRINT POSITIONS. 


BIT SW 15--HALT AFTER EACH LINE PRINTED. SW 15 


34018050 
3A018060 
3A018070 
3A018080 
3A018090 


ALSO CAUSES ONE EXTRA IDLE SCAN CYCLE.3A018100 
THIS HAS A NEGLIGIBLE AFFECT ON SPEED.3A018110 


8-15--PRINT SPEED CONTROL--ENTER THE 


DESTRED NUMBER OF IDLE SCAN CYCLES 
TO BE TAKEN BETWEEN PRINT CYCLES. 


SWITCH SETTINGS MAY 
IPL MODE FROM CARDS 
. ONE PASS COMPLETED, 


NO EMITTER RESPONSE 


PRESS IMMEDIATE STOP AND RESET. 
SWITCHES MAY BE SET AS DESTRED. 


DESIRED PATTERN 
AT LEAST ONE BIT MUST BE ON 


0 


PRDSW-1 *A* XIO 
5 


PRSWS 
/OOFF 
PREMT 
/E8C8 
/7T013 
14803 
40020 
PRINT 
0827 
PRDSW 


PRSPR 


PRSCNt7 


Zz 
PREND 
PRDLY 
+ 
PRPRT 
PR 
PRDLY 
PRWT3 
PRINT 
PRGO 


O-7=VALID CHARACTER-—PRINT CHARACTER AS 


SHOWN ON PAGE 2. 


O-7=INVALID CHARACTER--IDLE CONTINOUSLY. 


NOTE--PROGRAM ALWAYS TURNS ON BIT 10 TO PREVENT 
OPERATING AT EXCESSIVE SPEEDS. 
BE INCREASED BY MANUALLY CHANGING CONSTANT 3A018210 
AT CORE LOCATION 0008. 


SPEED MAY 
USE CAUTION. 

BE CHANGED AT ANY TIME. 

OR PAPER TAPE 

PRESS START TO CONTINUE. 


INTRPT, RESTART TO CONTINUE 


NO SPACE RESPONSE INTERRUPT, RESTART TO CONTINUE 


PRELOADING 
PRESS START. 


TO RUN WITHOUT INTERRUPTS.~.«MANUALLY ENTER 
HEX 600BR AT CORE LOCATIONS 0001 AND OO3A. 


TO CHANGE POSITIONS PRINTED.s«MANUALLY ENTER 
IN CORE LOCATIONS OOLE AND OOIF.- 


IN SECOND WORD OOIF. 


ok took gtk deo tok ke ea tok ek eo to io a tok tok ok kok 


PRSPS SPACE PTR 
WAIT FOR INTERRUPT 


*A* DC /3A32 RD SWS 


*A* DC /3200 RD EMITTER 


MINIMUM IDLE SCAN CYCLES 
INTERRUPT ADDRESS 
INTERRUPT ENTRY 


EMITTER RESPONSE 
* NOy TRY SPACE RESPONSE 


SCAN FIELD ZERO 
* NO, GO STOP PRINTER 


LAST IDLE SCAN CYCLE 
* YES, GO PRINT 
DECRE IDLE COUNT BY ONE 


3A018120 
3A018130 
3A018140 
3A018150 
34018160 
3A018170 
3A018180 
3A018190 
3A018200 


3A018220 
3A018230 
3A018240 
-3A018250 
3A018260 
34018270 
3A018280 
3A018290 
3A018300 
3A018310 
3A018320 
3A018330 
34018340 
3A018350 
3A018360 
3A018370 
3A018380 
3A018390 
3A018400 
3A018410 
34018420 
3A018430 
.34018440 
3A018450 
3A018460 
3A018470 
3A018480 
3A018490 
3A018590 
3A018510 
3A018520 
3A018530 
34018540 
3A018550 
34018560 
3A018570 
3A018580 
3A018590 
34018600 
34018610 
3A018620 
3A018630 
3A018640 
34018650 
3A018660 
3A018670 
3A018680 
3A018690 
3A018700 
3A018710 


PROG ID 
PAGE 
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IBM MAINTENANCE 


1130 SCOPF LOOP 


DATE 


EC 


NO. 


DIAGNOSTIC PROGRAM 


RAMS 


as a 
( 


Se 


FOR THE 1130 SYSTEM 


x AX 
x AK 
Ax 
* Ax 
x AX 


kA 


DC 


DC 


DC 


DC 


DC 


/3701 


SENSE DSW. 


13480 START PTR 


/3440 STOP PTR 


/FFFF 
/FFFF 


43401 


STOP PRINTER 


BIT SW 15 ON 


* YES, 


SPACE RESPONSE 


* NO, CHECK DSW AGAIN 


CLEAR 


OR SET 
SCAN 


WAIT 


FIELD 
START PRINTER 
WAIT FOR INTERRUPT 
READ BIT SWITCHES 

READ EMITTER 
GET SWS 
OR MINIMUM IDLES 


SPACE PTR 


ISOLATE CHARACTER 

SKIP IF NO CHAR ENTERED 
COMPARE WITH EMITTER 
SKIP IF SAME CHAR 


SET IDLE COUNT 


bog 


SOC ao a Gd Ra Ra ido idk ii iota iodo tet ick dog tok dei ak ie 
THE LAST FIVE WORDS ARE 


LOD PRRD+2 
PRSTR RTE 4 

STO PRDSWEl 
PRSTP RTE 16 

STO PRSTRt1 
PRFLD EOR PRDLY-1 

STO PRSTP+#1 
PRSCN LDD PRRDS+] 

RTE B 

AN PRRDS#1 

STD PRFLD 

LD PRRD+#1 

SRA 2 

STO PRRDS#1 

SLA 8 
PRSPS STO PRRD+41 

LD PR-3 

SRA 2 

STO PRSPSt1 
PREND XIO PRSTP 

LD PRSWS. 

BSC E 

WAIT 2 

MD X PRGO 
PRSWS EQU PRSTR 
PREMT EQU PRDSW 

—PRSPR SLA 2 

BOSC ~ 

MD X PRINT#1 

SLC 32 

STD PRSCN 

STD PRSCNt2 

STD PRSCNt4 

STD PRSCNt6 

X10 PRSTR 
PRWT3 WAIT 3 
PRPRT xIO PRRDS 

X10 PRRD 

LD PRSWS 

OR PRIDL 

RTE 8 

SLA 8 

BSC Z 

FOR PREMT 

BSC Z 

MD Xx PRWT3 

SLC. 8 

STO PRDLY 

LDD PRFLD 

MDX PRSPR+4 
PR DC /0001 

Nc /00CO 
PRDLY DC /0040 

DC 79000 

DC /2000 

OC /1000 

OC /0040 

END fe) 


STATEMENTS FLAGGED IN THE ABOVE ASSEMBLY 


25 JUL69 


PROG 
0019 0 C8EC 
OOLA O 18C4 
001B 0 DOFND 
~O01LC O 1800 
001D 0 NOFD 
OO1LE 0 FO2B 
OO1F 0 DOFD 
0029 0 C8F2 
9021 0 18C8 
N022 0 88ED 
0023 9 DBFA 
0024 0 COFO 
0025 90 18302 ° 
0026 0 DODC 
9027 90 1008 
0028 0 DODC 
0029 0 COLC 
002A 0 1802 
002B 0 DOFD 
002C 0 OS8FF 
002D 0 COFC 
O002E 0 4804 
O02F 0 3002 
0030 0 70CF 
OOLA O 
0018 0 
0031 0 1002 
0032 0 4850 
0033 0.7007 
0034 0 10E0 
0035 0 D8EA 
0036 0 DBFB 
0037 0 DBEC 
0038 90 DS8ED 
0039 0 O8EO 
003A 0 3003 
0038 0 O8C6 
003C 9 O8CT 
003D 0 CODC 
OO3E O £8C9 
O03F 0 18C8 
0040 0 1008 
0041 0 4820 
0042 0 FONS: 
0043 0 4820 
0044 0 7OFS5 
0045 0 10C8 
0046 0 DOO04 
9047 0 C8N6 
0048 0 TOEC 
0049 0 0001 
004A 0 OO0CO 
004B 9 0040 
004C 0 9000 
004D 0 2000 
004F 0 1000 
OO4F 0 0040 
00590 0000 

19 
L5FEB68 
420403 


*. 571053 
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34018720 
34018730 
3A018740 
3A018750 
34018760. 
3A018770 
34018780 
34018790 


-3A018800 


34018810 
3A018820 
3A018830 
3A018840 
3A018850 
34018860 
3A018870 
34018880 
3A018890 
34018900 
3A018910 
3A018920 
3A018930 
3A018940 
34018950 
34018960 
34018970 
34018980 
34018990 
34019000 
3A019010 
34019020 
3A019030 
3A019040 
3A019050 
3A019060 
3A019070 
3A019080 


34019090 


3A019100 
3A019110 


3A019120 


34019130 


3A019140. 


3A019150 
34019160 
3A019170 
3A019180 


-3A019190 


3A019200 
3A019210 
3A019220 


3A019230. 


3A019240 
3A019250 
3A019260 
3A019270 
34019280 
3A019290 


34019300 
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| | ce | | PAGE | 16 aa | PAGE — 16A. 
1130 SCOPE LOOP PROGRAMS © | : | | | 41230 SCOPE LOOP PROGRAMS | ‘ 
CPALT OO00D O003E 0042 : oy, tee | FPBLD 0033 0000 
CPBGN 0000 OO01C ; ; | : : FPBSW 0006 000D°0013 0019 OO03F 0041 
CPBLD 0012 0000 | 7 " | FPCAR 0004 0008 OO11 OO2F 0036 0038 
CPBSW 0002 0018 OOLA 001D 0021 | _ | FPDSW 0002 0015 0018 OO1F 003B 003N 
CPCTL 0009 OOOE 001B 003C 003F | | : a. FPINT OOLE OOOC 0021 
— CPDSV O00B 0022 0024 0028 002E 002F 0032 3 | FPOUT 0032 OO0A 0014 
CPDSW .0006 0002 0004 0015 0017 O01E 0023 002D 0039 0038 | 7 | FPPRT OO0A OOLC 0035 003A 003E 0044 
CPIN4 002C OO00C 0031 . 3 | i FPRES 0947 0033 , 
-CPLOP 0036 0038 | | Z 2 FPSKP 0008 002D 0039 
CPONE 0001 0036 : : | ‘ " | FPSTR O0O0D 0047 
CPRDS 001D 0009 | | ie | oe | FPSWS 0001 0006 OODE DO0F 0016 0027 
-CPRET 0032. 002B | : | ; pee FPOOL 0031 0045 
CPSEN 0022 OOOF 0011 0027 0043 7 : >. 3 oe FPL 0013 0026 
-CPSET 0008. OOLF 0033 0040 | | 7° | a ee Fp2 OO17 OO01B 0042 0046 
‘ CPWRT 0004 0012 0014 0029 Ls FP8 N902F 002C O02E 
CRARA 0036 0006 0014 0045 | | | : ae KYBGN 0000 0031. 
-CRBGN. 0000 0039 ~~ ok : oe KYBLD 0024 0000 
CRBLD 0035 0000 0019 0028 0032 7 | | me KYBSW 0002 0012 0024 0026 9036. 
-CRBSW 0002. 002D 0030 0035 0037 . = KYDCH O000D 0021 © 
CROSV. 0009 OO10 | | | ee | KYDSP 0022 0010 
CRDSW 0004 0002 OOOF 0016 0031 0038 003A 003F | : KYDSV OO00B 0014 | 
CREND O00A 0022 0047 ; . : KYDSW 0004 0002 0013 OODLE 0027 0029 0030 0037 
CRERR 0008 0015 OO1D 0027 | : ane KYIN4 0011 O00C 903A 003D 
CRING OO0E O00C 9013 we ne | : KYKEY 000A 0008 000D OO00F 0022 0035 003B 
CRLD 0014 OOLF 0021 0024 0026 | | | KYONE 9O001 
CRLOP 002A OO1C 002C 7 : | KYRD 0008 O9OO0LC 002N O02F 
CRMOD OOLF 0018 | 7 KYRDW OO1C 0018 
CRONE 0001 0020 002A 003C 003E : | | : KYREQ 90019 OO017 
CRRDR 0006 O02E 0040 0042 . | | . , KYRST 0032 0004 | 
CRRST 0030 0004 0048 4 | KYSEL. 0006 OO01D 002A 002C 0033 
CRSRA OO00B 0025 0046 | : | oe | | | KYSET 0036 0Q01B 0023 
CRSTR 002D 0034 | : : PHBLD 0037 0000 © , 
CRO80 O00D 0043 | oe 7 ‘ | a ee PHBSW 0004 0016 0018 0027 003E 0040 
DCBGN 0000. | | | | PHCTR 9002 0017 0019 0026 
DCBLD 0020 0000 | 7 | 7 | | PHDSW OO0A 0012 OO1F 0041 0043 
DCBSW 0008 0019 0022 0023 003C 0040 | | 7 | ' PHFED 0000 0030 003C 003D 
DCDSW 004C O0O0C 0011 0028 0045 0048 ~~ . PHINT 90011 0098 O90NC 0024 
DCEND 004B 0018 0036 7 7 | PHK50 OOOE OOLA 
DCINT 0008 000A 0010 PHPCH 0006 0020°0044 0046 
DCONL 0004 0026 002A OO2E | | PHPST C0008 0031 0039 003B 
DCON2 0006 0031 7 : PHRES 004A 0037 
DCON3 000D 0039 | , PHSTK O00C 0033 0047 0049 
DCONS 0002 0020 - ; PHSWS 0003 0006 001D OO1F 0028 0034 
-DCRD 004E 002C 0049 . | | PH] O0O0F 004A 
DCSWS 0001 0008 0015 0024 003D PH? 0030 0010 0036 
DCWR 0050 0030 0034 0042 0046 | | PH4 0020 OOl1C 
DCXR3 0003 0018 OO1A 0035 003F 0041 | | . PH6 0022 0015 
DC1 003C OOLF PH8 0033 002D 
DC3 003E 003A 0044 | | | 7 PLALT 0048 0045 
DC5 0014 OO1LD 0038 ) PLBGN 0000 OO1D 
DC6 0048 0013. | PLBLD 0012 0090 
DKBD1L O00F 0026 | PLBSW 0002 0019 OOLR OOLE 0022 
DKBD2 0010 002A | | PLCTL 0013 0043 0046 0049 ~ 
DKBGN 0000 OOI1C PLDSV 9009 OODE 002C 002F 0032 0035 ; 
DKBIT OCOE 0002 0018 0021 0025 0028 002C 0031 0042 PLDSW 0006 0002 0004 000D 0015 0018 OOI1F 0023 0027 002D 003B 0042 
DKBLD 0018 .0000 | : : PLIN3 0O00C 0008 OOLO | 
DKBSW 0002 001D OOLF 0020 0030 é | | PLLOP 9038 OO3A 3 
DKCON 0042 OOLA | PLONE QOO1l OOL7 0938 
DKDSV 0008 0013 0035 0036 0030 i 7 PLOT. 0004 0012 0014 0033 
DKDSW 0008 0012 0022 0029 0034 0045 , PLRDS OO1E 0008 
DKENT OOOL OOLT 9037 003F | ; PLRET 0035 OO11 
DKHME 0004 002D 90038 . 7 : PLRST 008 ODOLC 
DKIN2 OO11 OOGA 0016 a : PLSEN 902C 0031 O04A 
DKMOV 003A 0019 0048 : | , | | . PLSET O00A 0020 0036 
DKRST 0020 OOOE | PLSTR 0022 90026 902B 0040 0047 
DKSEK 0006 O002F 0033 003A 003C 0040 0044 ) PR 0049 0014 0029 
DKOFF O000D 0043 | | PROLY 004B 0011 0015 OODLE 0046 
DKO004 O000C 0038 , . PRDSW 0018 0000 OO0OB OO1B 
DATE ISFEB6SB 25JUL69 PROG ID 03A0-0 DATE 15FER68 25 JUL 69 PROG 10 03A0-O 
EC NOw 420403 (571053 | | PAGE 16 ; EC NO. 420403 571053 ; | | | ' PAGE 16A 
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TBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THF 11430 SYSTEM : PART NO. 2243962, | [BM MAINTENANCE DIAGNOSTIC PROGRAM FOR THF 1139 SYSTEM. PART NOw 224395? 
a | PAGE 17 , | | ~ PAGE Life 
1130 SCOPF LOOP PROGRAMS oy 1130 SCOPE LOOP PROGRAMS 
oF od 
PREMT OOL8 0004 0042 | | , ty? og a ee TP100 OOOA 06019 0029 
PRFND O09?2C OOLO | we | ites | TRADV OOOA 0029 002C 0041 
PRFLND ONO1E 0023 0047 _ | | | = : TRALT 0O03F 0047 OO4A 
PRCGO 1900 0018 0030 , ? —_ aa | TRARA 0924 0008 ODOF 0018 OOILA 
PRINL 9008 0O03€ | | - a ar ee: | TRBGN 0000 OO02E. | 
PRINT OOOA 0009 0017 0033 — 2 , | | iy e TRALD 0021 0000 0015 0018 0031 0035 
PRPRT 003B 0013 , | | So | ea Oe TRBSW OOLO 0021 0023 002F 0039 | 
PRRD. 0004 0019 0024 0078 -003C ee ee FP ae 4 ie. kas TRCTL 0026 003A 003D 0044 | 
PRRDS 0002 0020 9022 0026 0038 | SO : eo ee aes | TROSV 0025 0003 
PRSCN 0020 OOODE 9035 0036 0037 0038 Oo p> oe a | aie &S4 TROSW OO00C 0002 001D 0024 0026 
PRSPR 0031 O000D 0048 ; | | p34 eee SY 3 TRIN4 0001 0006 002N 
PRSPS 0028 ° 0028 : | , ee kt ee TRIGA 0012 9009 
PRSTP OO1C OOIF 002C | | Se oo | te ee | TRLOP 0010 0014 0017 OOLF 
PRSTR OOLA O0O1D 0039 > oe Re ' ce Be geet 3 TRNOT 0043 003C 
PRSWS OOLA 0002 002D 003D | | | | ee | TRPAT 0048 0038 
PRWT3 003A 0016 0044 | . tae. . a | ilies oh os 7 TRRD OOOE 0007 0028 
RNARA O001 0004 0018 OO1B 0032 | | . ae ey le : TRRST OO2F OOOL J | | 
RDBGN 0000 002C | | £3 a Pos TRSBW 0023 0010 0012 0030 0034 003E 0040 0045 0048 
RDBLD OO1F 0000 002F 003C 0044 | | oT | a rn an TRSTR 0035 0020 | 7 | 
RDBSW 0092 OO1LF 0021 002D 0035 aa 4 : a | .  «¢ _wuint® ge fi? TR100 0022 .0028 0049 - 
RDCOP 0038 0013 4 4 | a as a Eee : END OF ASSEMBLY ; 
RONSV OCOR 0011 0038 0048 | : Sats “8 = ape oe | . 7 | ae , | . a 
RNNSW 0006 0002 OOLO 0015 0022 0024 002B 002E | Ss | fee | i a a a a ---=+-------- eo --- -- - LAST PAGE ~--------------- aa nn = | 
—- RDERR ONOA OO1C | es | oa Bove | | _ 7 7 : 
 RDESW 0020 001D 0034 0041 
RDINT 9037 OOLA OOLE 0047 
RDIO4 OOOF 0008 O00C 003A 
 RDLOP 003E 0040 . 
RDGNE OOOF OO3E . 
“RORGO 0008 0025 0027 0036 
-RDRRD 0004 0014 0028 002A 
RORST 002D 0006 0043 OO4A 
-RDOFF O00D 0031 | 
STGBD 003F 0009 | 
STGCR 0004 0015 0022 0023 | 
STGHL 0005 OO11 OO1A 9030 OO3A 
STGLC 0002 0024 0034 0036 | 
STGPG 003E 0037 OO3E | 
STGPN 0003 OQOOE OOLF 00925 002D 
STGRD 0006 OOOF 0014 0017 0029 002C 0035 0041 0043 
STGRS 0048 | 
STGSP 0049 003F | | 
STGST 0009 0000 0040 0048 0049 > a » | | | | 7 
STGSW 0001 0010 0018 | a : pO eS | : | | | + 
STGXX 0008 0008 000D 0049 | - | 7 | i | 
STGO 0023 0020 0030 | 
STGL 0025 0039 
STG10 003A 0033 
STG2 0026 0044 0046 
STG3 OO2A 0047 
STG7 0021 OO1D 
TPALT 002B 0045 
“TPBGN 0000 0018 
TPBLD 000D 0000. 1 
TPBSW 0002 0014 0016 OOIC 0026 
TPCTL 0009 OOLA 002C 003F 0046 
TPOSY OOO0B OO02ZE 002F 0034 0036 | 7 ta a ee | 
TPDSW 0006 0002 0004 0010 0013 001D 0021 0028 002A 002D 0035 0042 0044 
TPIN4 0033 O00C 0039. | | 
TPLOP 003C 003E 
TPNOT 0046 0041 
-TPONE 0001 0012 0017 003C 
. TPPAT 0028 0025 | 
 TPROS OOIC 0009 004A 
TPREF 003A 0032 
TPSEN 0020 0027 
TPSET 0008 OOLE 0022 003A 0047 
TPWRT . 0004 0000 OO0O0F 0030 
DATE L5FFR6AR 25JUL69 : > a PROG ID. 03A0-0 | DATE 15FEB69 25 JUL 69 | PROG ID 03A0-0 
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CCRE STORAGE FUNCTION TEST 


1. PURPOSE 


THE CORE TEST TESTS THE CORES, CORE READ WRITE CIRCUITRY, AND THE ~ 
CNRE-ADDRESSING CIRCUITRY OF THE i132 CENTRAL PROCESSING UNIT (CPU. 
THE TEST CONSISTS OF THREE PARTS, WHICH ARE LOADED AND EXECUTED IN 
THE FOLLOWING ORDER, 


Ae HIGH=CORE TEST. TESTS MEMORY LOCATIONS ABOVE 2048. 


6. O-ThHROUGH-9-TE ST, TESTS THE THREE HIGHEST LOCATIONS OF 
CORE IN ALOTTION TO LOCATIONS C-9 IN ORDER TO TEST THE WRAP-AROUND 
FEATURE CF CORE. 


C. Lfw-CORE TEST. TESTS CORE LOCATIUNS 9 THROUGH 2047. 


2- PREREQUISITES 


THE CORE TEST OCCK MUST BE FRECEDED BY FHE 1130 BASIC DIAGNOSTIC 
LCOACER IN ORDER TO BE LOADED. EQUIPMENT REQUIRED CONSISTS OF THE 1442 
CARC READ/ PUNCH GR PAPER TAPE READER, AND 1131 CPU. 


3. USE PROCECURE 
301 PRCGRAM LOADING 


1. PLACE CAROS/PAPER TAPE IN READER} 

2. WAKF READER READY. 

3. PRESS THE 1131 RESET KEY. 

4. PRESS THE 1131 PROGRAM LOAD KEY. 

5. IF PRCGRAS FAILS TO LOAD OR STUPS AT A WAIT BELOW LOCATION 
01204 REFER TO BASIC LUACER DOCUMENTATION SECT. 3.26 


3-2 OPERATION PROCEDURE 


Ae HIGH CORE TEST WILL LOAD AND RUN FOR ABOUT 2 TO 10 MINUTES, 
OEPENDING ON CORE SIZE. TF NO ERRORS GCCCUR, AND CONSOLE ENTRY 
SWITCHES 135 14 AND 15 ARE OFF, THE NEYY TEST SECTION WILL BE 
AUTUWATICALLY LOADED. | 


Be O-9 CORF TFST WILL LOADe ANDO RUN BRIEFLY. IF NO ERRORS OCCUR, AND 
CONSOLE ENTRY SWITCHES 13» 14 AND 15 ARE OFF, THE NEXT TEST 
SELTION WILL BE AUFUCMATICALLY LUADEN. 


C. tO CCRE TEST WILL LOAD ANU RUN ABOUT 1 MINUTE, THEN STOP AT END 
OF TEST WAIT, 3CFF, WITH COCD IN INSTRUCTICN ADDRESS REGISTER. 


De ERRORS ARE INDICATED BY EKRUR WAITS. SEE PARAGRAPH 3.5 


E. PROGRA¥ OPTIONS MAY BE ENTERED IN CONSGLE ENTRY SWITCHES AT ANY 
TIMEs SFE TABLE le 


PROG ID 03A2-0 
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DATE 


O2JAN66 .~k 
EC NO. e 


415490 


IBM MAINTENANCE DIAGNOSTEC PROGRAM FOR THE 1130 SYSTEM 
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CORE STORAGE FUNCTION TEST 


DATA 


TABLE le PROGRAM OPTIONS 


ENTRY HIGH N-9 LOW 


SWITCHFS CORE CORE CORE 


Sh 


Sh 
SW 
SW 
SW 


SW 


3-4 


0319 
—O1FC 


O9CC 


DATE 
EC NU. 


15 ON xX x WAIT AT END OF TEST SECTION. TO RERUN SECTION 
PUSH PROG START. 
15 CFF X x LOAD AND EXECUTE NEXT TEST SFCTION. 
14 CNX X X  LAUP TEST SECTION NOW RUNNING. 
13 OX X x X LOOP ROUTINE NOW RUNNING. 
12 9N xX x X BYPASS ERROR WAIT. 
1L PN Xx x X LOOP ON A PARTICULAR ADCRESS. USED FOR SCOPING 
PROGRAM TERMINATION 
IN NORMAL OPERATION, TRE PROGRAM WILL TERMINATE AFTFR ALL THREE PARTS 
HAVE BEEN EXECUTED, UNLESS CONSOLE ENTRY SWITCH 13, OR 14 IS ON (LOOP 
RNUTINE, LONF PKUGRAM). TURN UFF SWITCH TO ALLOW PROGRAM TO TERMINATE. 
NORMAL WAITS 
ATCR SBR MEANING 
0318 3°00 3 | 
Swart AT END OF TEST SECTION - SW 15 ON. 
O1FB 3060 | 
O9CC 30FF END UF PROGRAM WAIT - ALL SECTIONS COMPLETE. 
ERROR WAITS 
[AR SSR MEANING 
0352 3000 ERRGR IN HIGH-CORE TEST. 
A. THE ACCUMULATOR WILL DISPLAY THE SAME INFORMATION AS 
iT UID WHEN THE ERROR WAS UETECTED. 
6B. THE ACCUMULATOR EXTENSION WILL DISPLAY THE CONTENTS 
OF THE INSTRUCTION ADDRESS REGISTER AT THE TIME THE 
ERRUR WAS DETECTED. 
C. THE STATUS OF CARRY AND UVERFLOW WILL BE RESTORED. 
D. INDEX REGISTER XR1 WILL CONTAIN THE ADDRESS THAT 
FAILED UNDER TEST. 
E. INDEX REGISTER XR2 WILL CONTAIN THE CORRECT BIT 
PATTERN, IF THIS WAS AN ERROR-3 CONDITION. 
021D 3XXX ERRGR IN 0-9 TEST. 
A. THE ACCUMULATOR WILL DISPLAY THE SAME INFORMATION AS 
IT DID WHEN THE ERROR WAS OETECTED. 
@. THE ACCUMULATOR EXTENSION WILL DISPLAY THE ADDRESS 
OF THE BSI L RSCOR INSTRUCTION THAT TRANSFERRED THE 
PRUGRAM TO THE ERROR ROUTINE. | 
C. THE STATUS OF CARRY AND OVERFLOW HAVE NO SIGNIFICANCE 
M THE LL LEAST SIGNIFICANT BITS OF THE VALUE OF THE 
ADCRESS UNDER TEST WILL BE STORED IN THE 11 LEAST 
SIGNIFICANT BIT POSITIONS OF THE ERROR WAITe THIS 
WILL EE DISPLAYED IN THE STURAGE BUFFER REGISTER. 
OZJAN66 PROG ID 03A2-0 
415490 PAGE 2 
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CCRE STURAGE FUNCTION TES* 


0446 3000 ERROR IN LOw-CORE TEST. 

Ae THE ACCUMULATOR WIL CISPLAY THE SAME INFORMATION AS 
IT UIC WHEN THE ERROR WAS DETECTED. 

Be. THE ACCUMULATOR EXTENSION WILL OISPLAY THE CONTENTS 
OF THE INSTRUCTION ADDRESS REGISTER AT THE TIME THE 
ERKOR WAS DETECTED. 

Ce THE STATUS OF C4RRY AND OVERFLOW WILL RE RESTORED. 

DO. INDEX REGISTER XR1 WILL CONTAIN THE ADDRESS THAT) 
FAILED UNDER TEST. 

Co INDEX REGISTER XR2 WILL CONTAIN THE CCRRECT BIT 
PATTEKNe IF fHIS WAS AN ERROR-3 CONDITIONS 


IF PROGRAM FAILS TO LUAD, OR IF ERAOR WAITS OCCUR AT LOCATIONS 
BFLGW 912C~e. SEE BASIC LOADER DNCUMENTATION. 


&4.e. PRINTOUTS (NONE) 


5o CCMPENTS 


5eil 


Selel 


Sele2 


5e1.3 


ee ) ee) 0) 


o@ 


DATE 
EC NO. 


EITHER ALL UfES OR ALL ZEROS. 


O2JAN66 
415490 


DFSCRIPTIUN O¢ HIGH-CORE MEMORY TEST 
INITIALIZATTIONS (RSOKS) 


THE INITEALIZATION ROUTINE ESTABLISHES THE BUOTSTRA® BRANCH, 
DETERMINES “MACHINE TYPE, DETERMINES MEMORY SIZE, AN™ ESTABLISHES 
AREA CCCES. 


REAC/WRITE-IN-MEMURY AND ACORESSING TEST (RSABI) 


THE READ/WRITE—IN-MEMORY AND ADORESSING TEST | 
LOADS EACH CurR& PUSITIGN WITH ITS CWN ADDRESS. THE TEST 
THEN COMPARES THE CONTENTS UF EACH CORE POSITICN WITH THE 
ANCRESS ENTEKRRNGATED TO ASSURE THAT THE CORES CAN BF 
CNRRECTLY AXCRESSED. 


BIT-{1SOLATION TESS (RSABR) 


THE BIT-ISOLATION TEST IS IN THO PARTS. THE FIRST “ART 
CHECKS THE ABILITY TO EAD ANO WRITE ZEROS IN MEMORY. 

A FAILURE [AM RELC OR WRITE ZERGS WILL RESULT IN AN FRROR 
WAIT. THE SECOND PART IS A BIT-ISOLATION TEST. THIS 
TEST DETERMINES THE ABILITY OF MEMORY TO DISTINGUISH EACH 
ONE Ge Tre 16 BITS IN A STORED WORD. THE PATTERN RFAD 

INTO MEMORY HAS FIFTEEN O BITS AND A SINGLE 1 BIT IN EACH 
WORDS FSRST THE 1° BIT IS PLACED IN PUSITION Oj. THF BIT IS 
THEN MOVED YC THE RIGHT ONE PUSITION PER PASS FOR A TUTAL 
15 TIMCS UNTIL THE ENTIRE CORC WORD HAS BEEN TESTED. 


WORST-CASE-PATTERN TEST {(RSACY) 


THE WORST-CASF-FPATTERN TEST ESTABLISHES A WORST= | 
CASE PATTERN CONSISTING OF BLOCKS OF WURDS CONTAINS NG 
THIS PATTERN IS READ AND. 
STORED INTG MEMURY AND I[S THEN COMPLEMENTED AND STORED 
AGAIN. IF ANY SITS ARE OMITTED UR ADDED, BECAUSE OF THIS 
WORST—-CASE (MAXIMUM NOISE) EXERCISE, AN ERROR WILL OCCUR. 


COW MON-PRUGRAM/PROGRAM-ENCD ROUTINE (RSADA) 


THIS ROUTINE CONTAINS THE PROGRAM-PASS COUNTER AND 

THE INSTRUCTIONS NECESSARY TO SENSE CONSOLE FNTRY SWITCHES 
14 AND 15. WITH SWITCH 15 ON» A WAIT-AT-RSQAS INSTRUCTION 
SIGNIFIES PROGRAM END. 


PROG ID 
PAGE 2A 


0342-0. 
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PAGE 3 


CURE STORAGE FUNCTION TEST 


5.137 


5 020% 


DATE 


EC 


NOe 


ERRCR ROUTING TU SERVICE NON-JNTERRUPT ERRORS {(RSDDD) 
THIS ROUTINE PROCCSSES AND ICENTIFICS THE ERRORS THAT ARE DETECTED BY 
THE PRCGRAH®S TEST ROUTINES. AN ERROR WAIT IS EXECUTED. SEE SECTION 
3.5, CRRO® WAITS. 
PPCPER CONDITION UF SWITCHES 
WITH CCNSOLF ENTRY SWITCH 12 GFF (UNORPAL), EACH ROUTINE IS EXECUTED 
FOUR TIMES PER EACH PROGRAM PASS, AND THE PROGRAM IS REPEATED THREE 
TIMES. THIS RESULTS IN A RUN TIME OF BETWEEN 1 AND 10 MINUTES 
DEPENUING UN MEMURY SPEED ANO CORE SIZE~ 
DESCRIPTION SF MEMURY TEST (6 THROUGH 9 CURES) 
INITIALIZATIONS (RSSTAD 
THE INITEALYZATIONS DETERMINE THE “ACHENE TYPE, ESTABLISH THE 
MEMORY SIZE>y AND ESTABLISH PRUPER ISOCC AREA-CODE MUNIFIERS. 
LONAD-ZEROS—"N-CORES TEST (RSROB) 
THLS TEST TESTS THE ABILITY OF THE MEMORY TU READ AND WRITE 
ALL ZEROS. 
LTAD-CNES-IN-CORES TESS (RSRO2) 
THIS TEST TESTS THE ABILITY NF THE MEMORY TO READ AND WRITE ALL 
ONES« 
APCRESSING TEST (RSKO3) 
THIS TEST ATTEMPTS TO PLACE WITHIN EACH MEPURY WORD ITS OWN 
APCRESS. THE MEMORY IS THEN REAO 12 ASSURE THAT PROPER 
ANCRESSING HAS TAKEN PLACE. 
BIT-ISCGLATION TEST (RSROG) 
THIS TEST CHECKS BIT ISOLATION BY REIPPLING A 1 BIT THROUGH 
EACH BIT PGSITION WITHIN THE MEMORY WORD. AT ANY TIME 
DURING THIS ROUTINGe THE wORD UNDER TEST SHUULD CONTAIN NO 
MORE THAN GNE 1 BIT IN ANY WORD. 
PRCGRAM-END RCUTINE (RSPER) 
THIS KOUTINF INCREMENTS THE PROGRAM PASS COUNTER AND 
INTERROGATES CONSOLE ENTRY SWITCHES 14 AND 15. 
ERRGR ROUTINE (KSEOR) 
THE ERRCR &AUTINE 1S USED WHENEVER AN ERRUR OCCURS. THE ERROR ROUTINE 
EXECUTES A VAIT-AT-RSERW INSTRUCTIONS 
NOTE 
THIS PART OF TEE TEST DOES NOT HAVE THE BUOTSTRAP-BRANCH 
FEATURE. THE EXECUTION TIME FOR THIS PART OF THE TEST WILL BE 
LESS THAN 10 SECONDS if NO ERRORS ARE CETECTED. 
DESCRIPTION OF LOW-CORE MEMURY TEST 
INITIALIZATIONS (RSOKSS 
THE INITEALIZATIONS DETERMINE MACHINE TYPE AND ESTABLISH AREA CODES. 
O2JAN66 | PROG ID 0342-0 
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CCRE STURAGE FUNCTION TEST 


50305 


DATE 


EC NO. 


0O2J AN66 | | - . ‘ 
415490 | | _ 2 


REAC/WRITE-IN-MEMORY ADDRESSING TEST (RSABI) 


THIS TEST LNELDS EACH CORE POSITIUN WITH ITS OWN ADDRESS AND 
COMPARES THF CONTENTS OF EACH CURE POSITIUN WITH THF ADDRESS 
INTEPROGATEM TO ASSURE THAT THE CURES CAN BE CURRECTLY ADDRESSED. 


BIT-iSOLATICN TEST 


THIS TEST CETERMINES THE ABELITY OF MEMORY FTO CISTINGUISH 
EACH ONE OF THE 16 BITS IN A STUREG WURD. FIRST THE 1 BIT 
IS PLACEC IN POSITION ZERO} IJHENe THE b6b1Ff MOVED TO THE 
RIGRT GCNE POSITION PER FASS FUR A TOTAL 15 PASSES UNTIL 
THE ENTI Re COKE wC8D HAS BEEN TESTED. 


RORSI-CASE-PATTERN TEST (RSACJ) 


THE WORST-CASE=PATTERN TEST ESTABLISHES A WURST-CASEF 
PATTEKNW COm%SISTING UF BLOCKS CF WURDS CUNTAINIAG EITHER ALL 
UNES OR ALL ZERCS. THIS PATTERN IS READ AND STORED INTO 
MEWORY AND TS THEN COMPLEMENTED AND STURED AGAIN. IF 

ANY BITS ARE URUPPED ZR ADDED OURING THIS WORST-CASF 
(“AXIMUM NCTSE) EXERCISE, AN ERROR WAIT WILL OCCUR. 


CP PRPOCN-PPCG®AM/PROGRAM-ENC ROUTINE (RSACA) 


THIS ROUTINE CONTAINS THE PROGRAM-PASS COUNTER AND INTER= | 
ROCATES CONSOLE ENTRY SWITCH 14. A WAIT-AT-RSEXI INSTRUCTION 
SIGNIFIES PROGRAM END. 


E®ROR ROUTINE TO SERVICE NON-INTERRUPT ERRORS (RSODN) 


THIS RCUTINE PROCESSES AND IDENTIFIES THE ERRORS THAT ARE DETECTED BY 
THE PROGRAW®S TESTS. AN ERROR WAIT INSTRUCTION IS EXECUTED. 


NOTE 
AFTFR THIS PART OF THt TEST HAS CCMPLETED ITS 
INITIALIZATION ON THE FIRST PASS, A BOOTSTRAP 
BRANCH IS AVAILABLE FOR RESTARTING THE PROGRAM. 
THES BUOTSTRAP BRANCH IS INITIATED BY DEPRESSING 
THe STNP.» RESET, AND START PUSHBUTTONS AND : 
WILE NESULT IN A BRANCH TO THE START OF THE PRUGRAM. 
EACH ROUTINE IS EXECUTED FUJR TIMES FOR EACH 
PROSKAM PASS AND TRE PROGRAM IS REPEATED | 
THRFE TIMES. THIS RESULTS IN A RUN TIME OF 
BETWEEN ONC AND TWC MINUTES DEPENDING CN 
MEMORY SPECN. THC PROGRAM NESTROYS THE 
1139 BASIC DIAGNOSTIC LOADER, MAKING IT 
IMPOSSIBLE TO CHAIN TO ANOTHER PROGRAM. 
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IBM MAINTENANCE OITAGNOSTIC PROGRAM FOR THE 


CORE STORAGE FUNCTION TEST 
HIGH CORE TEST 


O02BC 
012C 
012 
012F 
-0130 
0132 
0133 
0234 
0135 


0136 0 
0137 00 
0139 00 
0138 00 
013D 00 


O13F 
0140 


0142 
0143 
0145 


0146 
0147 
0148 
0149 
O14A 
0148 
O14C 
014D 


Q14E O 
O14F O00 


0151 
0152 
0153 
0155 


0159 
O15A 
0158 
O15C 
0150 
O15E 
O1SF 


0160 O 


0162 


0164 OO 
0166 ON 
0168 O 
0169 O 


DATE 
EC NOe 


Oo 


Ooqoo0ocooc So 
7) 


0 
0 
0141 0 
0 
0 
0 


eonaooo°cn]e 


0 
U 
00 
00 
0157 OG 
0 
0 
0 
0 
0 
0 
0 


C839 
DCO00000 
C834 
OC 000004 
C015 
1890 
C0i8 
DO13 


COll . 

04000003 
6TOOFFFF 
C4000003 
4C200141 


DOOT 
67000000 
7008 


0001 
FFFE 
9900 
0800 
0000 
9003 
0000 
0800 


COF9 
04000000 
COF7 
9001 
04009149 
C4-00000 
4C18015C 
9OEC 
DOEE 
7015 
COEC 
1001 
DOEA 
TOF2 


1003 
0002 
4C00012F 
4CO0012F 
O16E 
3440 


OLMAY66 
4154908 


MEMORY 


+ He HH HH 


ABS 
ORG 
RSDOKR LDD 
STD 
RSDKS LOD 
STD 
LD 
SRT 
LD 
STO 





1130 SYSTEM 


TEST-HIGH CORE 


300 
RSAAN 
0 
RSAAM 
4 
RSAAE 
16 
RSFAC 
RSAAH 


CLEAR Q REGISTER 


INITIALIZE MEM SIZE 


* MACHINE DETERMINATION ROUTINE 


LD 
STO 
LOX 
LO 
BSC 
LD 
MOX 
RSAAB LD 
STO 
LDX 
MDX 
* 


* STORAGE AREAS FOR 


* 

RSAAC OC 
RSAZAD DC 
RSAAE DC 
RSAAH DC 
RSAAK DC 
RSFAA DC 
RSFAB DC 
RSFAC DC 
x 


L3 


RSAAE 
3 
/FFFE 
3 
RSAAByZ 
RSAAD 
1 
" RSAAC 
RSAAK | 
70000 CLEAR XR 3 
RSAAF 
INITIALIZATIONS 
1 1130 CONSTANT 
-2 1800 CONSTANT 
0 | CONSTANT ZERO 
/080u MEMORY SIZE 
0 MACHINE TYPE 
3 NUMBER OF PROGRAM PA SES 
0 PROGRAM PASS BUFFEK 
/0800 INITIALIZE MEM SIZE 


* MEMORY SIZE ROUTINE 


te 


RSAAF LD 
STO 
LO 
RSAAJ STO 
RSAAG STO 
LD 
BSC 
S 
STO 
MDX 
RSAAI LD 
SLA 
STO 
MDX 
*x 
* STORAGE 
* 
RSAAL MDX 
BSS 
RSAAM BSC 
RSAAN BSC 
RSQAF DC 
RSQAO DC 


rice 


RSAAE 

0 

RSAAH 
RSAAG+4+1 
RSAAH 

0 

RSAAI »#=— 
RSAAC 
RS AAH 
RSABA 
RS AAH 

1 

RSAAH 
RSAAJ 


AREAS PART 1 


Prem 


3 

2 
RSDKS BOOTSTRAP BRANCH INST 
RSDKS 

RSQAL READ BIT SWITCH IOCC 
43A40 SECOND HALF I0CC-113 


PART NO. 


PAGE 


HCTOOO00 
HCTOOO10 
HCTOOO020 
HCTO0030 
HCTO0940 
HC100050 
HCTO0060 
HCTOOO7O 
HCTOOO80 
HCTOOO90 
HCTOO100 
HCT00110 
HCTO00120 
HCT001 30 
HCTO0140 
HCTOO150 
HCTOO160 
HCTOO170 
HCTOO1 80 
HCTO0190 
HCTOO200 
HCTOO0210 
HC TQO0220 


HCTO0230 


HCTCO240 
HCTOO250 
HCTOO260 
HCTOO270 
HCTOO280 
HCTOO0299 
HCTO00300 
HCTO0310 
HCTO00320 
HCTO0330 
HCTO00340 
HCT00350 
HCTOO360 
HCT00370 
HCT00380 
HCTO0390 
HCT00400 
HCTOO410 
HCTO0420 
HCT00430 
HCT00440 
HCTO00450 
HCTO00460 
HCT00470 
HCTO00480 
HCTO0490 
HCTOO500 
HCTOO510 
HCTOO520 
HCTOO530 
HCT00540 
HCTO0550 
HCTOO560 
HCTO0570 
HCTO0580 
HCTO0590 
HC TOO600 
HCTO0610 
HCTO0620 
HCTO0630 
HCTO0640 
HCT00650 
HCT00660 
HCTOO670 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


CORE STORAGE FUNCTION TEST 


HIGH CORE TEST 


O16A 
0168 
016C 
0160 
O16E 
OL6F 
0170 


ooooaooo°o°9o 


0171 O 
0172 00 
0174 0 
0175 OO 
0177 O 
0178 O 
0179 O 
O17A 00 
O17C 0 
0170 OO 
O17F O 
0180 00 


eo) 


Oo 


Oo 

— 

@ 

Ye) 
ooooo°c*n“vocoo0oo0co 

oe) Oo 


01B0 O 
0181 0 


0184 00 
0186 O00 
0188 00 
018A 00 


DATE 
EC NO. 


04B0 
031D 
0000 
0240 
0000 
OFO3 
0902 


COEE 
D4000000 
Coo05 
4€040182 
COFS5S 
DOFO 
COF1 
D4000008 
COF2 
040003F7 
COFO 
D40003F9 


Ccocs 
DOCB 
6204 
6580016A 
69E4 
COE3 
04.80016C 
FOBD 
4€180190 
7101 
TOF? 
6580016A 
6909 
C480016C 
FOD6 
4C1801A5 
32400021F 
0C000168 
C400016E 
E400028C 
4€200192 
4400037E 
FFFE 
08C2 
C400016E 
€400028C 
4€200192 
COBF 
FO9B 
4C1801B2 
7101 
TOEO 
T2FF 
TOD] 
0C000168 
C4000 16E 
E400028A 
4€200184 


0 1MAY66 
415490B 


RSQAC 
RSQAD 
RSQAE 
RS QAP 
RSQAL 
RSQAU 
RSQAV 
* 


* INITIALIZE 
* 1800 ONLY 


* 
RSABA 


* 


LO 
STO 
LO 
BSC 
LD 


STO. 


LD 
STO 
LD 
STO 
LD 
STO 


L 


L 


FOR THE 1130 SYSTEM 


RSEND+2 
RSCCA 

0 

/0240 

0 

/OFQ3 
/0902 


END OF PROGRAM IN CORE 
INTERRUPT LEVEL ZERO VECT 
WORK AREA 

SECOND RALF IOCC-180 

BIT SwITCH BUFFER AREA 
2ND HALF IOCC-1800 DW 
2ND HALF-1800 TYrE 


MASKS AND INTERRUPTS TO LEVEL ZERO 


RSAAL 

a 

RSAAK 
RSABI,E 
2 SQAP 
RSQAO 
RSQAD 

8 

RSQAU 
TWSNS#1 
RSQAV 
TWWRIT+]1 


STORE SOOTSTRAP BRAN H AT 
LOCATION ZERO 


IF 1130-GO TO FIRST ROUTI 
CHANGE SECCND HALF I CC 
FOR 1800 READ BIT SW 
INTERRUPT LEVEL ERRO VECT 


DSW 1800 

PRO] 
XIO WRITE 1300 

PRO2 


+ FIRST ROUTINE-READ + WRITE IN MEMORY 


* 
RSABI 


RSABH 
RSABB 
RS ABC 


RSABD 
RSABE 


RSABF 


RSABG 


ee he % 


LO 

STO 
i Dx 
Lt Dx 
STX 
aD) 

STO 
EOR 
BSC 
MOX 
MOX 
LDX 
STX 
LD 

EOR 
BSC 
STG 
X10 
LD 

AND 


MDX 
MOX 
X10 
LO 

AND 
BSC 


X2 
11 


| on] 


Sere erer 


eee 


a al aol 


RSFAA 
RSFAB 
4 
RSQAC 
RSQAE 
RSQAE 
RSQAE 
RS AAH 
RSA8BD,+- 
1 
RSABC 
RSQAC 
RSQAE 
RSQAE 
RSQAE 


~ RSQAN 


RSQAF 
RSQAL 
RSRAI 
RSABE,Z 
RSDOD 
/FEFE 
RSQAF 
RSQAL 
RSRAI 
RSABE,Z 
RSQAE 
RSAAH 
RSABG, +— 
1 

RSABE 
-1 
RSABB 
RSQAF 
RSQAL 
RSRAG 
RSABH,Z 


SECOND ROUTINE 
BIT ISOLATION TEST-BIT BY BIT-ADRESS BY ADDRESS 


INITIALIZE PROGRAM 
PASS COUNTER 
ADDRESSING PASSES 


INCR TO NEXT ADDRESS 


ERROR 1 DETECTED 
STORE ACCUM FOR ERROR ROU 


ERROR 1 CONSTANT 
READ BIT SwITCHES 


ISOLATE BIT SW 11 
IF BIT Sw 11 ON-REPEAT AD 


INCR TO NEXT ADORESS 
COUNT PASSES 


REPEAT ROUTINE IF SW13 ON 


REPEAT ADDRESSING RO TINE 


i 


\ 
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HCT00680 
HCTO00690 
HCTOO700 
HCTOO710 
HCTOO720 


HCTOO7T30 


HCTO0740 
HCTOO750 
HCTOOT60 
HCTOO770 
HCT00780 


HCTOO790 | 


HCTOO800 


HCTOO810 | 


HCTOOB20 


HCT008 30 


HCTO0840 
HCTOOBSO 
HC 100860 
HCTO0870 
HCTO0O0880 
HC100890 
HCTO0900 


HCT00910. 
HCT00920 


HCTO00930 


HCTO00%40 


HCTOO9SO 
HCT00960 
HCTOO9T7O 
HCTOO980 
HCT00990 
HCTO1COO 
HCTO1010 
HCTO1OCC 
HCTO1030 
HCT01040 
HCTO1050 
HCTO1060 
HCTO1070 
HCTO1080 


HCTO1090 © 


HCT01100 
HCT01110 
HCTO1120 
HCTO1130 
HCTO01140 
HCTO1150 
HCT01160 
HCTO1170 
HCTO11860 
HCTO1190 
HCTO1200 
HCTO1210 
HCTO1220 
HCT01230 


HCTO01240 | 


KCT01250 
HCTO1260 
HCT01270 
HCTO1280 
HCT01290 
HCTO1300 
HOT01310 
HCTO1320 


HCT01330 


HCT01340 
HCT01350 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191208 ° J IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191208 
: PAGE 2 : | | , | PAGE 2A 
(3 ¢ 
CORE STORAGE FUNCTION TEST J CORE STCRAGE FUNCTION TEST 
HIGH CORE TEST HIGH CORE TEST 
tr e) 
O1B8C 0 6304 RSABR LOX X3 4 BIT ISOLATION PASSES HCTO1360 * HCTO02040 
018D 00 C400016A4A RSABP LD L RSQAC HCTO1370 Ty an * ESTABLISH WORST CASE PATTERN HCT02050 
ULBF O NDOSA RSABN STO RSQAH HCTO1380 i ; * HCTO2060 
CicO 00 6580021A LDxX I1 RSQAP HCTO01390 0220 00 646000000 RSACJ LOX L2 /0000 HC TO2070 
v1C2 0 C058 LD RSQAI HCT61400 3 0222 00 6700FFFF LOX L3 /FFFF | HCTO2080 
4103 90 48002T4A STO I RSQAH HCTO1410 . ‘9224 0 COF3 LD RSQAQ INITIALIZE WORST CAS HCTO2090 
9105 99 C4&R0N21A LD IT RSQAH HCT01420 0225 0 NOF3 STO RSQAR PASS COUNTER HCTO2100 
9107 90 40129106 BSC LL RSAARS_+- ERROR 2 DFTECTED HC™91430 7 0226 CO T4FFO219 RSACK MDX L RSOQAR,-) COUNT WORST CASE PAS ES 4CTO2110 
O1C9 OC 4400037F BSI cL RSNDD HC™TN1440 0228 0 7001 MDX RSAC X HOTO2120 
N1iCB « FFF DC /FFED ERRNR 2 CONSTANT HCT01441 0229 0 7053 MDX RS ACW HCT02130 
JICC 90 N4&OON [VIF STO L RSQAN STORE ACC FOR ERROR NUTI HCT01450 ~ 022A 0 646AEF RSACX STX 2 RSQAH COMPLEMENT XR2 4CTO02140 
O1CF ON NCNON1L6B X10 L RSQAF HCT01460 ° 0228 0 COEE LO RSQAH HCTO2150 
O01N0 ON C400016E LD L RSOAL HCTN1470 022C 00 F4000287 EOR L RSRAC HCT02160 
0102 00 F4N0N2R8C AND L_ RSRAI HCOTO1L4AO 5 O22E O OOEB STO RSQAH HCTO02170 
9194 90 4€2601C9 BSC t RSARN41,2Z HCTO01490 ° O22F 00 6589021A LOX I2 RSQAd HCTO02180 
9195 00 NCONN1L6S8 RSABJ XIO L RSQAF IF BIT SW 11 ON REPE T AD HLTG1510 0231 0 6BES8 STX 3 RSQAH COMPLEMENT XR3 HCTO2190 
9198 ON C&NNOLSE LD t RSQAL HCTO1520 7 0232 0 CNET LD RSQAH HCTO2200 
O1DA NO E4NDNN2RC AND tL RSRAT HCTO1530 0233 00 F40002AR7 FOR L RSRAC HCTO2210 
J1e O09 4€2001C0 BSC LL RSARN41,2Z HCTO1540 0235 0 ODES STO RSQAH HCTO2220 
N91I9E O f£N3N LD RSOAJ HOTO01550 + 0236 00 6780021A LDOx 13 RSQAH HCTO2230 
C1GOF QO ON3D STN RSQAK HCTO01560 ‘ 0238 00 C400016A LO tL RSAC HCT02240 
O1FN NO CN3C RSABL LD RSQAK HCTO1570 023A QO DOGA STO RSRAA HCT02250 
N1F1 900 N480902 7 4A RSABO STD RSQAH HCTO1580 * 0238 0 C049 RSACB LD RSRAA HCTO02260 
O1F3 ON 658002109 LOX 12 RSQAK HCTO1590 ; 023C 0 1806 SRA 6 HCTO22T70 
N01£5 NN C4&RQN214 LN I RSQAH HC T01600 023D 0 0048 STO RSRAB HCT02280 
O1F7 QO FN35 ENR RSQAK HCTN1610 yj 023E 0 1802 SRA 2 HCTO2290 
QOLER ON 4C1ROLFT BSC L RSABKe+—- ERRNR 3 DETECTED HOTO1620 023F 0 8046 A RSRAB HCTO230U 
OIEA OC N4ONON27LEF STO L RSQAN HCTO1630 0240 00 40040245 BSC -L RSACA,ZE HCT™02310 
O1EC OO OC009158 XIN LL RSOQAF HCT01640 ‘ 0242 00 6E £00285 STX I2 RSRAA | HCTO02320 
QOLEF ON C4&0N01TAE LD L RSQAL HCT01i650 0244 0 7002 MDX RSACD HCT02330 
OLFO ON £400028C AND L_~ RSRAI HCTO01660 0245 ON 6F800285 RSACA STX 13 RSRAA HCTO2340 
OLF2 NN 4C2NN1EDN BSC L RSARLoZ HCTO1670 r - 0247 QO C030 RSACD LD RSRAA HCTO2350 
O1IF4 NC 44N0N003T7F BST L RSODD HC TO1680 j 0248 00 F4000149 EOR L RSAAH TEST FOR MEMORY END HC102360 
O1F6 O FFFS DC /FFFB TRRNR 3 CONSTANT HCTO1690 024A 00 4C18024F BSC LL RSADBet- HCTO2370 
O1F7 OO NCNO001458 RSABK XID LCL RSQAF HCTO01700 oe a 024C 00 74010285 MDX CL RSRAA,1 ADR=ADR+1 HCTO2380 
O1©9 NO C400016E LN L RSQAL HCT0O1710 O24E 0 TOEC MDX RSACB HCTO2390 
OIFR OO F400028C AND L- RSRAI ISOLATE BIT ll HCTO1720 * HCTO2400 
O1FN ON 4C270N1EDO BSC Lt RSABL,2Z IF SIT SW 11 ON-REPE YT BI = HCTO1730 co ae * WORST CASE TEST LOAD AND STORE’ THEN HCTO02410 
OLFF QO CO1D LD PSQAK HCTO01740 * COMPLEMENT AND REPEAT HCT02420 
0200 0 4804 BSC E IF ODD-BIT 15 IS REA HED HCTO1750 * HCT02430 
0201 0 7903 MDX RSABM BRANCH TO INCRE ADR ROUTI HCTO1760 ~ i O24F 00 6580016A RSADB LOX {1f1 RSQAC . LOAD STARTING ADR IN XR1I HCTO02440 
0202 0 1801 SRA 1 INCREMENT BIT HCTO1770 , 0251 0 6933 RSACL STX 1 RSRAA HC T02450 
0203 0 9019 STO RSQAK POSITION BY ONE HCTO1780 C252 0 C038 RSACH LD RSRAJ INITIALIZE COMPLEMENT CNTR HCT02460 
0204 0 70DC MDX RSABQ HCTO1790 ay os 0253 0 0038 STO RSRAK HCTO2470 
0295 0 CO14 RSABM LD RSQAH TEST FOR MEMORY END HCTO1800 . ‘ 0254 00 C4800285 RSACG LD I RSRAA HCT02480 
0206 00 F4000149 EOR tL RSAAH HCTO1810 0256 00 4C200254 BSC LL RSACE,Z HCTO02490 
0208 00 4C€180209D BSC LL RSABO,t— HCTO1820 7“) > 0258 0 FO2E FOR RSRAC HCTO2500 
O20A 0 COOF LD RSQAH INCREMENT TO TEST NE T HCTO1830 , : 0259 0 7010 MOX RSACF HCTO2510 
0208 0 8012 A RSQAM MEMORY LOCATION HCT0O1840 025A 0 FO2C RSACE ECR RSRAC HCTO2520 
020C 0 70B2 MDX RSACN HCTO1850 7 025B 00 4C18026A BSC L RSACF,4— ERROR 4 DECTECTED HCTO2530 
O020D O< T3FF RSABO MDX X3 -1l COUNT PASSES HCTO1860 : 025D 00 9400021F STQ L RSQAN HCT02540 
O20NE 0 TOAE ' MOX RSABP HCTO1870 O025F O00 O0C000168 XIO & RSQAF HCT02550 
O20F O00 0C000168 XIO LL RSQAF HCT0O1880 ay oy 0261 00 C400016E LD L RSQAL HCTO2560 
0211 00 C4COO1GE iD L RSQAL HCTO1890 ° 0263 00 £400028C AND L_~ RSRAI HCTO2570. 
0213 00 F40002B8A AND LL RSRAG HCTO1900 0265 00 4€200252 BSC UL RSACH,Z HCTO2580 
0215 00 4C2001BC BSC L RSABReZ REPEAT BIT ISOLATION HCTO1910 a = 0267 00 4400037E BSI L RSODD HCTO2590 
0217 0 7008 MOX RSACJ HCTO01920 ° 0269 9 FFT OC /FFFT ERROR 4& CONSTANT HCTO2600 
* HCT01930 : O26A O00 4800285 RSACF STO I RSRAA HCT02610 
* STORAGE AREAS PART 2 HCTO1940 = * O026C 00 T4FEO28F MDX L RSRAK,_—-2 HCT02620 
* HCTO1950 : O26E O TOE5 MDX RSACG BRANCH FOR COMPLEMEM PAS HCf02630 
O2i8 0 "004 RSQAQ DC 4 WORST CASE PASSES HCTO1960 O26F 00 0C000168 XIO LL RSQAF HCT02640 
0219 0 0900 RSQAR DC 0 WORST CASE PASS COUN HCTOL9OTO a “* 0271 00 C400016E LD tL RSQAL | HCTO2650 
021A 0 9000 RSQAH DOC 0 WORK AREA~-ADR HCTO1980 ° 0273 0 £018 ANO RSRAI ISOLATE BIT SW 11 HCT02660 
0218 QO 0000 PSQAI DC 0 © CONST ZERO HCTO1990 0274 00 4€200252 BSC L RSACH,2Z IF BIT SW 11 ON-REPE T AD HCTO2670 
021C 0 8990 RSQAJ OC 48000 BIT ZERO CONSTANT HCTO2000 = “4 0276 0 COOE LD RSRAA HCTO2680 
0210 0 ©9000 RSQAK DC 0 WORK AREA-BIT HCT02010 ° 0277 OO F4000149 EOR tL RSAAH TEST FOR MEMORY END HCTO2690 . 
O21E 9 OO001 RSQAM DC 1 CONST 1 HCTO2020 0279 00 4C€180226 BSC tL RSACK,#—- HCTO2TOO 
O21F 0 0000 RSQAN DC 0 STORAGE FOR ACCUM HCT02030 a >) 0278 0 7101 MDX Xl l MEM ADR=ADRE] HCTO2T10. 
DATE OLMAY66 PROG ID 03A2-1 eed + DATE O1MAY66 PROG ID O3A2-)1 
EC NO. 4154908 PAGE 2 : EC NO. 4154908 PAGE 2A 
non 





Netaeey 


IBM MAINTENANCE OITAGNOSTIC PROGRAM 


wort 


CORE STORAGE FUNCTION TEST 
HIGH CORE TEST 


O27C O 
0270 O00 
O27F CO 
9281 0 
0282 00 
0284 0 


02385 
0286 
O28T 
0288 
0289 
O28A 
028B 
O28C 
028N 
O258E 
628F 


oqgooo0o0eo°coo°:) 


0290 00 
0292 00 
0294 OC 


0296 0 
0297 00 
0299 0 
029A 0 
0298 00 
029D 90 
O29F 0 
0740 00 
O2A2 0 
0243 0 
O2A4 00 
O2A6 0 
O2A7 00 
O2A9 00 
O2AB 0 
O?AC 90 
O7ZAE ON 
0230 00 
N2B2 0U 
0284 00 
0285 O09 
0288 00 
O2BA 0 
02838 00 
0280 00 
O2BF 0 
O02C0 00 
O2C2 0 
02C3 00 
02C5 0 
O2C6 9 
O2C7 00 
O2C9 00 


Oo2CB 00 
o2CD 00 
O2CF 00 


DATE 
EC NO. 


7T0D4 
0C000168 
C4N00N16E 
£008 
4C 200220 
T00B 


9000 
9000 
FFFF 
9000 
0000 
0004 
9002 
9010 
0020 
003 
0000 — 


C400014A 
40980296 
64000305 


6204 
C400016A 
DOEE 
59908 
C4000372 


94000371 


COE7 
94800288 
2C41 
04B0 
565800288 
COE2 
94800288 
C4800288 
FODB 
4€1802BB 
9400021F 
3€009168 
C400016E 
F400028C 
4C22029F 
4400037E 
FFEF 
9€0090168 
C400016E 
ENCC 
4C20029F 
cocs5 
B84C0021E 
DOC2 
DONC 
F4000149 
4C20029F 


C4000372 
94000371 
C400016A 


O1LMAY66 
415490B 


RSACW XIO 


* 
* STORAGE 
* 

RSRAA DC 
RSRAB DC 
RSRAC DC 
RSRAE DC 
RSRAF DC 
RSRAG DC 
RSRAH OC 
RSRAI DC 
RSRAX DC 
RSRAJ DC 
RSRAK OC 

* 


* STORAGE 

* 

RSACV LD 
BSC 
LOX 

* 


or 


AREAS PART 3 





FOR THE 1130 SYSTEM 


RSACL 
RSQAF 
RSOAL 
RSRAG 
RSACJ eZ 
RSACV 


PROTECTION 


L 
L 
L 


RSAAK 
RSACU,+ 
RSADA 


LOOP ROUTINE IF SW 1 ON 


WORK AREA-ADDRE SS 
BUFFER ARFA-WORST CASE PA 


WORK AREA-ANDDRESS 

CONST ZERO 

BIT 13 'SOLATION CONST 
BIT 14 ISOLATION CON T 
BIT 11 ISOLATION CONST 
BIT 10 TSOLATION CON TANT 


COMPLEMENT 9ASS COUN ER 


TEST ROUTINES 


NIT 1800 BRANCH TO E D 


* WRITE ZEROS ON PROTECTED AREA OF ONES 


x 


RSACU LDX X2 4 

RSACS LD tL RSQAC 
STO RSRAE 
STG RSACO 
LD L RSSAH 

| STO L RSSAF 

RSACN LD RSRAC 
STO I RSRAE 
DC - 2041 

RSACO OC RSEND+¢2 
LOX I1 RSRAE 
LD RSRAF 
STO I RSRAE 
LD I RSRAE 
EOR RSRAC 
BSC LL RSACM,+—- 
STO L_ RSQAN 
XIO L RSQAF 
LO L RSQAL 
AND ct RSRAI 
BSC L_ RSSACNeZ 
BSI -L RSDDD 
DC /FFEF 

RSACM XIO LL RSQAF 
LD L RSQAL 
AND RSRAI 
BSC L RSACNeZ 
LD RSRAE 
A tL RSQAM 
STO RSRAE 
STO RSACO 
FOR L RSAAH 
BSC L RSACN,2Z 

x 

* UNPROTECT 

F 3 
LD L RSSAG 
STO Lt RSSAF 
LD L RSQAC 


STORAGE PROTECT PASS §S 


INITIALIZE STS ADDRESS | 
TELL INTERRUPT ROUTI E TO 
DISREGARD SP ERROR 
ACC=/FFFF 


AOD SP BITS 


ACCUM=0 . 
STO SHOULD NOT OCCUR 


ERROR 5S DECTECTED 


ERROR 5S CONSTANT 


ISOLATE BIT SW ll 
IF BIT SW 11 ON-REPE T AD 


RETURN WITH ADR=ADR+ 


AND CLEAR MEMORY OF ONES 


SERVICE STORAGE PROT CT 





PART NO. 2191208 
3 


PAGE 


HC¥02720 
HCT02730 
HCTO2740 
HCTO2750 
HCTO2760 
HCTO2770 
HCTO2780 
HCT0O2790 
HCTO2800 
HCTO2810 
HCT02820 
HCTO28 30 
HCT02840 
HC TO02850 
HCTO2860 
HCTO2870 
HCTO2880 
HCT™O02890 
HC702900 
HCT02910 
HCTO02920 
HCTO2930 
HCTO02940 
HCTO2950 
HCT0O2960 
HCTO2970 
4CT02980 
HCTO02990 
HCTO3000 
HCTO3010 
HCTO03020 
HCTO03930 
HC T03040 
HCTO3050 


HCTO3060 


HCTO3070 
HCT03080 
HCTO03090 
HCT03100 
HCT03110 
HCTO03120 
HCTO3130 
HCTO03140 
HCTO3150 
HCTO3160 
HCT03170 
HCTO3180 
HCT03190 
HC T0O3200 
HCT03210 
HCTO3220 
HCTO3230 
HCT03240 
HCTO3250 
HCT03260 
HCTO3270 
HCTO3280 
HCTO3290 
HCT03300 
HCT™03310 
HCTO3320 
HCT03330 
HCT03340 
HCT03350 
HCT03360 
HCT03370 
HCT03380 
HCTO3390 


PROG ID 


PAGE 


wee! 


eed 


2 


oO) 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


CORE STORAGE FUNCTION TEST 
HIGH CORE TEST 


02D1 0 
0202 0 
02N3 0 
02D4 0 
0 
0 


0305 OG 
0307 0 

0308 00 
030A 00 
030C 090 
O30E OO 
0310 OO 
0312 00 
0314 00 
0316 00 
0318 9 

0319 00 
0316 00 


0310 
O31€E 
O31F 
0320 
0321 
0322 00 
0324 90 
0326 OC 
0328 0 

0329 0 

032A 00 
032C 90 

032D 0 

O32E O00 
0330 0 

0331 OO 
0333 00 


oo0o0o00 


DATE 
EC NO} 


0086 
noo 
2040 
04B0 
65800288 
COB 
N48090288 
C4800 288 
4C1802E8 
)400021F 
9C000168 
C400016E 
F400028C 
4C2002D3 
4400037€E 
FFOF 
9C000163 
C400016€ 
EQ9SC 
4€ 2090203 
C095 
8400021E 
9092 
90D 
F4000149 
4€C200203 
T2FF 
TO9A 
9C900168 
C400016E 
E400028A 
4C200296 


T4FFOL4SC 
7013 

0C000168 
C400016E 
E4000288 
4€200182 
oco00l68 
C40CO16E 
4€040318 
6400005C 
3000 

6400912F 
64000184 


9090 
N04C 
2847 
984D 
NO4E 
#0400324 
9€ 000168 
C400016€E 
=052 
F052 
4C€18039% 
C043 
E046 
40180343 
C040 
4C10033F 
0C000168 


O1MAY6 
415490 


RSACQ DC 
RSACR DOC 


| pea 
iw] 
Pa 
ont 
= 


pe 
oe 
oO 

ll ol ell el nel ol 


RSACP XIOQ 


er 


w 
uw 
oO 
tf 


Cm 
o 
a rae mes 


BSC 
g 


a 7 ana ; : fe ae eee ag Bs = i gaaaes ex Ee Ay ait DRIES asa tibins 
pee eee cee ee Reeth lien ad naan 2 cenit sR eT tyr sa ane RIS AR Sa SIRES rl aes 





FOR THE 1130 SYSTEM 


RSRAE 
RSACR 
/2C40 
RSENCD+2 
RSRAE 
RSRAF 
RSRAE 
RSRAE 
RSACP,+- 
RSQAN 
RSQAF 
RSQAL 
RSRAI 
RSACQ,2 
RSDDD 
/FEDF 
RSQAF 
RSQAL 
RSRA]I 
RSACQ,Z 
RSRAE 
RSQAM 
RSRAE 
RSACR 
RS AAH 
RSACQ,Z 
-1 
RSACS 
RSQAF 
RSQAL 
RSRAG 
RSACU,Z 


* COMMCN PROGRAM END 


* 
RSADA MDX 
MDX 
x10 
LD 
AND 
BSC 
RSEXI XIO 
LD 
BSC 
RSQAwW LDX 
RSQAS WAIT 
LOX 
ScCO LDX 


Sree reer -- 


git a 


R 
* 
* INTERRUPT 
* 
R 


SCCA DC 
STG 
STS 
X10 
STO 
BOSC 
NEXT xXIO 
LO 
AND 
EOR 
BSC UL 
LD 
AND 
BSC L 
LD 
BSC L 
XxIO L 


rere 


6 
B 


RSFAB.e-l 
RSCCQ 
RSQAF 
RSQAL 
RSRAH 
RSABI,Z 
RS QAF 
RSQAL 
RSQASsE 
/0050 


RSOKS 
RS ABH 


LEVEL ERROR 


0 

RSSAA 
RSCCE 
RSSAC 


-RSSAD 


NEXT 

RS QAF 
RSQAL 
RSSAO 
RSSAP 
RSDDK,4+— 
RSSAD 
RSSAE 
RSCCB,+- 
RS SAF 
RSCCG,- 
RSGAF 


INITIALIZE STS ADDRE S 
CLEAR SP SITS 


ACC=/0000 


ERROR 6 DECTECTED 


=RROR 6 ZT INSTANT 
REPEAT tC2P IF SW 1l ON 


REPEAT ADDRESS 


3RANCH wWiTH ADR=ADR+4 


LOOP ROUTINE FOR 5 P SSES 
LOOP ROUTINE IF SW 13 ON 


REPEAT SP ROUTINE 


REPEAT PRUG-SW 14 ON 


INTERROGATE Sw 15 

LINK TO NEXT PROG 
PROGRAM END-PRESS START 
TO RE-RUN P20GRAM - 
LOOP PROGRAM 


ROUTINE 
RETURN ADDR TO MAIN ‘LINE 


SAVE A 
STORE STATUS CARY*OFLO 


PART NO. 


PAGE 


HCT93400 
HCT03410 
HCT03420 


_ HCT03430 


HCT03440 
HCT03450 
HC T03460 
HCT03470 
HC T03480 
HCT03490 
HC703500 
HCT03510 
HCT03520 


—-t1CT03530 


HCT03540 
HCT03550 
HCT03560 
HCTO3570 
HCT03580 
HCT03590 
HCTO3600 


HCT03610 


HOT03620 
HCT03630 
HCT03640 
HCTQ3¢ 50 


 HCT03660 


SENSE ILSa FUR LEVEL ERROR 


TEST FOR THE ILLEGAL 
SAITCH COMBINATION-S 10 
ON AND SW 12 OFF 


BRANCH If ILLEGAL 
RESTORE STATUS OF IL W 
ISOLATE STGE PRT ERROR 


TEST FOR STORAGE PRO VIOL 


BYPASS PRINTOUT IF IT SP 


SW 10 TO BYPASS PRINTOUT 


HCTO03670 
HCTO3680 
H1CTO3690 


HCTO3700. 


HCT03710 
HCT03720 
HCT03730 
HCT03740 
HCTO375C 
HCTO3760 
HCT03770 
HCT03780 
HCTC3790 
HCTO3800 
HCT03810 
HCTO3820 
HCT03830 
HCT03840 
HCT03850 
HCTO3860 
HCT038 70 
HCTO3880 
HCTO3890 
HCT03900 
HCT03910 
HC103920 
HCT03930 
HCT03940 
HCT03950 
HCT03960 
HCTO3970 
HCTO3980 
HCT03990 
HCTO4000 
HCT04010 
HCTO40 20 
HCT04030 


HCT04040 


HCT0“*050 
HCT04060 
HCT04070 


PROG ID 


PAGE 


2191208 
38 


O3A2-1 
3A 











18M MAINTENANCE DIAGNOST:IC PROGRAM 


CORE STORAGE FUNCTION TEST 


HIGH CORE TEST 


0335 00 
0337 00 
0339 OO 
033B 00 
033D 0 
033E 0 
033F O 
0340 0 


0341 CO 


0343 00 
0345 00 
0347 00 
0349 00 
0348 0 

034C 0 

034D 09 
034F O00 
0351 0 

0352 9 

0353 0 

0354 00 
0356 00 
0358 0 

0359 00 
0358 00 
0350 O 

O35€ OO 
0360 
0361 
036? 
0363 
0364 
0365 
0366 
0367 
0368 
0369 


oO 
Les) 
oO 
DP 
Oo ooooo0o0ooc°o 


Oo 

ad 

~ 

oO 
eoo0co0oocoo0o9°o00090 


O37E 
O37F 
0380 
0381 
0382 
0383 
0384 


OoOouU0000 


DATE 
EC NO. 


C400016E 
E400028D 
4€ 200359 
44000397 
9473 
7004 
C030 
FOQ33 
4€98031D 
JC000168 
CSOO016E 
E4000280 
4€200359 
C024 
E028 
4€180352 
44000397 
04TF 
C010 
£022 
4€180359 
44000397 
0489 
0C000168 
C400016E 
£919 
4€88031D 
COOF 
180C 
E817 
9004 
CNBS 
1890 
C004 
2000 
3000 
4€80031D 


0900 
9002 
9000 
0300 
0000 
FFFF 
FFFF 
0002 
200G 
4000 
8000 
0008 
N00E 
9001 
3000 
0028 
0020 
5555 


9000 
2810 
COFD 
9OF6 
1890 
COFA 
ROFS 


O1MAY66 
415490B 


FOR THE 1130 SYSTEM 


LD L RSQAL 
AND L  RSRAX 
BSC £ RSCCDy2 
BSI L LOG 
DC MESO3 
MDX RSCCB 
RSCCG LD RSSAD 
EOR RSSAE 
BSC I RSCCA,+- 
RSCCB XIO L_ RSQAF 
LD L RSQAL 
AND L_ RSRAX 
BSC L  RSCCDyZ 
LO RSSAD 
AND RSSAI 
BSC L  RSCCCy4- 
BSI Lt LOG 
Dc ME S04 
RSCCC LO RSSAD 
AND RSSAJ 
BSC L  RSCCDy+- 
BSE L LOG 
oC MESOS 
RSCCD XIO Lt RSQAF 
LD L  RSQAL 
AND RSSAK 
BSC I RSCCAy+ 
LO RSSAD 
SRA 12 
OR RSSAN 
STO RSCCH 
LD RSCCA 
SRT 16 
LO RSSAA 
RSCCE LDS 0 
RSCCH WAIT 
BSC I RSCCA 
* 
* STORAGE 
~< 
RSSAA DC 0 
BSS E 2 
RSSAC OC /0000 
DC 4/0300 
RSSAD OC Q 
RSSAF DC -1 
RSSAG DC -1 
RSSAH DC 2 
RSSAE OC 12090 
RSSAI DC 14000 
RSSAJ OC 4/8000 
RSSAK DC 40008 
RSSAL DC 14 
RSSAM DC l 
RSSAN DC /3000 
RSSAO DC /0028 
RSSAP DC /0020 
F.SSAQ OC 15555 
«x 
* ERROR ROUTINE TO 
+ 
RSDDD DC 0 
STS RSDDJ 
RSCOX LD RSODD 
S RSSAL 
SRT 16 
LO RSDOD 
A RSSAM 


BYPASS PRINTOUT IF B ANCH 
ERROR INT-STORG PROT 

IF. IN SP ROUTINE AN P 
ERROR ONLY. THEN RETURN TO 


MAINLINE 
SW 10 TO SYPASS PRINTOUT 


BYPASS PRINTOUT If B ANCH 


LOAD ILSW FOR ERROR INTRUP 


ISOLATE PARITY ERROR 


ERROR INT-PARITY 
TEST FOR INVALID OP 
ISOLATE INV OP ERROR 


ODE 


ERROR INT-INV OP COD 


IF BIT SW 12 ON THEN STOR 
ACCUM, INS CTR», STATUS 
AND WAIT 


LOAD ILSW FOR ERROR 

PLACE BITS 0-4 OF IL W IN 
11-15 AND O8 IN WAIT CP 
STORE IN WAIT 

LOAD INS CTR IN ACCUM 
TRANSFER INS CTR TO 
RESTORE ACCUM CONTENTS 
RESTORE OFLO+CARRY 1 DICA 


RETURN TO MAINLINE 


AREAS FOR ERROR ROUTINES 


SAVED ACCUMULATOR BU FER 


SENSE ILSW FOR 
LEVEL ZERO 

STORAGE FOR ILSW 

IN SP ROUTINE -INOy, 
NOT IN SP ROUTINE 
IN STORAGE PROTECT ROUTIN 


2YES 


ISOLATE BIT SW 12 


WAIT INSTRUCTION 


SERVICE NON-INTERRUPT ERRORS 


STORAGE FOR RETURN ADDRES 
STORE STATUS OFLO+CA RY 


CORRECT I REG 
STORE I REG IN Q 


INCREMENT RETURN ADDRESS 


PART Nie 


PAGE 


HCT04080 
HCT04090 
HCT04100 
HCT04110 
HCTO04120 
HCT04130 
HCT04140 
HC T04150 
HCT04160 


HCT04170 


HCT041 80 
HCT04190 
HCT04200 
HCT04210 
HCT04220 
HCT04230 
HCT04240 
HCT04250 
HCT04260 
HCT04270 
HCT04280 
HCT04290 
HCT04300 
HCT04310 
HCT04320 
HCT04330 
HCT04340 
HCT04350 
HCT04360 
HCT04370 
HCT04380 
HCT04390 
HCT04400 
HCT04410 
HCT04420 
HCT04430 
HCT04440 
HCT04450 
HCT04460 
HCT04%70 
HCT04480 
HCT04490 
HCT04500 
HCT04510 
HCT04520 
HCT04530 
HCT04540 
HCT04550 
HCT04560 
HCT04570 
HCT04580 
HCT04590 
HC [04600 
HCT04610 
HCT04620 
HCT04630 
HCT04640 
HCT04650 
HCT04660 
HCT04670 
HCT04680 
HCT04690 
HCT04700 
HCT04710 


HCT04720. 


HCT04730 
HCT04740 
HCTO47T50 


PROG ID 


PAGE 


2191208 
4 


Q3A2-1 
& 


o 


cy 


ra 


a) 


6.9 


2 


) 


iw) 


wad 


i) 


=) 


ws QW Ww 


QO \ 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


CORE STORAGE FUNCTION TEST 


HIGH CORE TEST 


0385 0 

0386 00 
0388 OO 
O38A 90 


-O38C OO 


O3B8E 00 


0392 00 


0395 00 


0397 0 
0398 0 
0399 00 
0398 O00 
039D 00 


O39F O00 
03Al 0 


O3A2 0 
03A3 00 
03A5 0 
0346 00 
03A8 0 


03A9 
O3AA 


oo 


O3AB 
C3AC 


oo 


03AC 


O3AE 
O3AF 
0380 
03B1 
0382 


oooc0co © 


0383 00 
0385 00 


0387 CO 


0389 
O3BA 
0388 
03BC 
038D 
O3BE 


oooo;9c;.°o 


O3CC 
O3C1 


03C2 
03C3 


oo oOo 


03C4 


oO 


03C5 
03C6 


ho it > E 


DATE 
EC NO. 


NOFB 
0C900168 
C400016E 
E4000377 
4CAO037E 
C400021F 
2000 
3000 
4C80037E 
COEB 
4C40012F 


0000 
6818 
0CN00168 
C400016F 
4C100389 


C4800397 
0052 


984D 
4C0403A9 


1801 
4CC403AB 
71004 


300A 
TOFT 


3008 
TOFS 


0845 


0343 
1002 
4816 
TOFC 
0830 


47000000 
74010397 


4€800397 


1010 
9032 
O83A 
1005 
L30F 
4€1803C2 


300C 
TOFS 


C028 
DO2A 


0833 


0830 
180B 


OLMAY66 
4154908 


RSDDJ 


RSDOCK 


STO 
X10 
LD 
AND 
PSC 
LD 
LOS 
WAIT 
BSC 
LD 
BOSC 


Pr an i PE 


I 


L 


RSDOD 
RS QAF 
RSQAL 
RSSAK 
RSDDD,2Z 
RSQAN 

0 


RSODD 
RSSAQ 
RSOKS 


BY 1 TO AVOID OC IN. AINL 
IF SW 12 ON-CORRECT CONSL 


INDICATOR LAMPS AND WAIT 


RELOAD A REG AS PER ERROR 
SAVE CARY+OFLO STATU 


RESET INTER-RETURN START 


KEKSEEEEE KEKE KEAEEREKES EE REEEKESE EER EEREEEEE 


LOG ROUTINE | = 
REACHES AEA EES EKER TERE SS EATS EEE KEKE ES 


* 


* 
LOG 
LOGO) 


LOGO2 


LOGO3 


LOGOS 


LOGOS 


DC 
STX 
X10 
LD 
BSC 


LD 
STO 


X10 
BSC 
SRA 
BSC 
MOX 


WAIT 
MOX 


WAIT 
MDX 


X10 


xio 
SLA 
BSC 
MDX 
x10 


LOX 
MDX 


BSC 


SLA 
STO 
X10 
SLA 
SRA 
BSC 


WAIT 
MDX 


LO 
STO 


X10 


X10 
SRA 


3 


ere 


joan 


0 SE 
LOGO6+1 SAVE IX 3 
RSQAF 
RSQAL 
TWRIR,»- BRANCH IF 1953 OUTPU 
LOG GET MESSAGE ADDRESS 
PRWRT SET IN ICCC 
PRSNS CHECK PRINTER READY 
LOGO3,E BRANCH IF NOT READY 
] | 
LOGO4,E BRANCH IF BUSY 
LOGOS READY AND NOT BUSY 
10 NOT READY 
LOGO2 CHECK AGAIN 
11 BUSY 
LOGO2 CHECK AGAIN 
PRWRT OUTPUT MESSAGE 
PRSN CHECK FOR OP COMPLT 
2 
*—% 
PRSNS RESET DSW 

PRINTING COMPLETE 
0 RESTORE IX 3 
LOGel BUMP RETURN 
LOG RETURN TO USER SX 
16 
WROSW 
TWSNS CHECK IF TYPEWRITER 
5 READY 
15 
TWRO1L,+- 
12 NOT READY 
TWRIR+2 
TWRTO CARRAIGE RETURN AND 
IOARA LINE SPACE TO IO ARA 
TWWRT CARG RETURN/LINE SP 
TWSNS HANG TILL NOT BUSY 
11 
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HCT04760 
HCTN4TTO 
HCT04780 
HCT04790 
HCT04800 
HCT04810 
HCTO4820 
HTT048 30 
HCT04840 
HCTO4850 
HCT04660 
HCT04870 
HCT04880 
HCT04890 


~HCTO4900 


HCT04910 
HCT049 20 
HCT04930 
HCT04940 
HCT04959 
HCT04960 
HCT04970 
HCT04960 
HCT04990 
HCTO5000 
HCTOSL 10 
HC105020 
HCTO50 30 
HCT05040 
HCT05050 
HCTO5060 
HCTOSOTO 
HCTO5080 
HCT05090 
HCT05100 
HCT05110 
HCTO512C 
HCT05130 
HCT05140 
HCT05150 
HCTO5160 
HCTO5170 
HCTO5180 
HCT05190 
HCT05200 
HCTO5210 
HCT05220 
HCT05230 
HCT05240 
HCTO5250 
HCT05260 
HCT05270 
HCT0528C 
HCT05290 
HCT05300 
HCTO5310 
HCT05320 
HCT05330 
HCT05340 
HCT05350 
HCT05380 
HCT95370 
HCTO5380 
HCT05390 
HCT05400 

CT05410 
HCT05420 
HCTO54 30 


PROG ID 
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4A 


03A2-1 
4A 





IBM MAINTENANCE DIAGNOSTIC PROGRAM: 


CORE STORAGE FUNCTION 


HIGH CORE TEST 


O3C7 0 
O03CR O 


03C9 O 
03CA 00 
O3CC 0 


O3CD O00 
O3CF 00 


03D1 0 
03D2 00 


0394 00 


03D6 00 
0°2D8 O 


03D9. 


Oo 


O3DA 
0308 
03D0C 
03DD 


oo0o°o 


03D 
03DF 
03€90 


oO00 


oO 

Ws 

mm 

wes | 
oOo0oo0o 0 


O3=&7 O 
~—03E8 OO 
O3EA O 


O3€B 
O3EC 
O3ED 
O3EE 


oo0c°o 


03F0 


oO 

WJ 

nN 

wr 
eoooo0oo09°aeo 


DATE 
EC NO. 


4804 
TOFC 


4301 
C4809 397 
001 


C70C0000 
94000424 
FOIA 

4€180383 


440003FA 


C400042A 
015 


ORE 


9818 
180B 
4804 
TOFC 


COOE 
4804 
7006 


Cooc 
1008 
NOOA 
T40103ED 
TOF2 


1301 
740103E9 
TOF2 


8103 
FFFF 
0000 
9000 


0000 


0000 
3701 
39000 
3700 
0000 
3500 
0000 
OFO] 
O3EE 
0900 


O1LMAY66 
415490B 


FOR THE 1130 SYSTEM 


TEST 
BSC E 
MDX +4 
x 
LDX 31 BYPASS 1443 WORD COU T 
LD I LOG GET MESSAGE ADDRESS 
STO TWRGO241 
4 | 
TWROZ2 LO L3 O GET WORD TO PRINT 
STO L CODWD SET IN CONVERSION RT 
EOR TWRT1 CHECK If TERMINATOR 
BSC L LOGO6y+- BRANCH IF TERMINATOR 
* 
MRS EK aE KEKE KEKE K KEKE AE SEEKERS EKEKE 
BSI t CODCV GO CCNVERT 43 TO TW SRC 
KARR ARMA KEK KEK KKSEKKEK EEK KEKKKKKAKRKEKEKEKKEKE 
2 | 
LD L~L CNDwWD 
STO IOARA 
* 
* OUTPUT A CHARACTER 
x 
X1OWR XIO TwWRT WRITE CHARACTER 
* 
XIOSN XIO TWSNS HANG ON BUSY 
SRA 11 
BSC E 
MDX XIOSN BUSY 
* 
* CHECK IF 1ST 1/2 WORD 
*x 
L WRDSW GET 1/2 WORD SWITCH 
BSC E 
MDX TWRO3 GC SET UP NEXT WORD 
* 
* SET UP FOR 2ND 1/2 WORD 
* . 
LD IOARA 
SLA 8 POSITION 2ND 1/2 WD 
STO IOARA : | 
4DX L. WROSWel BUMP WORD SWITCH 
MDX XT OWR GO WRITE 2ND 1/2 WD 
x 
* SET UP FOR NEXT WORD 
* 
TWRO3 MDX 3 1 NEXT WORD INDEX 
MDX L  WROSWel BUMP WORD SWITCH 
MDX TWRO2 GO GET NEXT WORD 
* 
* LOG CONSTANTS 
x 
TWRTO OC 48103 LINE SP/CARRAIGE RTN 
TWRT1 DC /FEFF TERMINATOR 
WROSW DC 0 1/2 WORD SWITCH 
IOARA CC ) OUTPUT AREA 
* 
BSS E— 0 
* 
PRSNS DC 10000 PRINTER SENSE IOCC 
DC /3701 
PRSN DC 0 NON RESET SENSE 
DC /3700 
PRWRT DC 40000 PRINTER WRITE IOCC 
OC 13500 
»WSNS DC /0000 TYPEWTR SENSE IOCC 
DC /OFO1 DSW RESET PMO1 
TWWRT DC IOARA TYPEWTR WRITE IOCC 
| OC /0900 ‘WR TYPEWRITER PMO2 





PART NOe 2191208 
5 


PAGE 


HC 105440 
HCT05450 
HCT05460 
HCT05470 
HCTO5480 
HCT05490 
HCTO5500 
HCT0O5510 
HCT05520 
HCT05530 
HCTO05540 
HCTO5550 
HCT05560 
HCTO5570 
HCTO5580 
HCT05590 
HCTO5600 
HCT05610 
HCT05620 
HCTC5630 
HCT05640 
HCT05650 
HCT05660 
HCTO5670 
HCTO5680 
HC T05690 
bhCT05700 
HCTO5710 


HCTO5720 © 


HCT05730 
HCTOS740 
HCT05750 
HCTO5760 
HCTO05770 
HCTO5780 


-HCTO5790 


HCTO5800 
HCT0O5810 
HCT05820 
HCT05830 
HCTO05840 
HCT05850 
HCTO5860 
HCTO5870 
HCTG5880 
HCTO5890 
HCTO5900 
HCTO5910 
HCT05920 
HCTO5930 
HCTO5940 
HCT05950 
HCTO05960 
HCTO5970 
HCTO5980 
HCTO5990 
HCTO6000 
HCTO6010 
HCT06020 
HCTO06030 
HCT06040 
HCTO6050 
HCTO6060 
HCTC6070 
HCT06080 
HCT06090 
HCT06100 
HCT06110 


PROG 1D 


PAGE 


03A2-1 
5 


O 


4 


) 


my 


a) 


a ] 


a) 


ra) 


) 


tJ 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


CORE STORAGE FUNCTION TEST 
HIGH CORE TEST 


O3FA 
O3FB 
O3FC 
O3FD 


OoOo00 


O3FE 
O3FF 
0400 


oOoO°0o 


0401 
0402 
0403 
0404 
0405 


oocoo°o 


0406 
0407 
0408 
0409 


coo0c°o 


0408 
040C 
0460 
O40E 00 


Oooo 


0410 00 
0412 0 


0413 900 
0415 CO 


O47 O 

0418 00 
041A 90 
041C 0 

041D 


0 
O41E€ O 
O41F O 
0420 0 
0421 0 


0422 00 
0424 00 
0426 00 


0428 00 


042A 
0428 
042C 
0420 
042E 


oOoo0o°0 


042F O 
0430 0 


DATE 
EC NO. 


0000 
6927 
6A28 
6829 


1010 
DO2B 
6300 


C028 
1890 
C027 
4220 
1988 


1010 
1084 
D023 
6£80042C 


1010 
1084 
DO1E 
6680042C 


C500042F 
0001 


C6000000 
D700042D 


C013 
4C200G1E 
74010428 
7301 
TIE3 


COOE 
1008 
E80D 
D008 


65000000 
66000000 
67000C00 


4C8003FA 


9000 
9900 
7000 
90000 
0009 


0433 
043E 


O1MAY66 
4154908 


KKREKKEKKEKKKSE SEEKS EKKAKE KEKE KKKELKEKERESKEKE 


* 
* 


* 

Coocv DOC 
STX 
STX 
STX 


SLA 
STO 
LDX 


CODC1 LO 
SRT 
LD 
BSC 
SLT 


SLA 
SLT 
sTO 
LOX 


SLA 
SLT 
STO 
LOX 


LO 
STO 


cooc2 LD 
STO 


LD 

BSC 
MDX 
MDX 
MDX 


CO0C3 LO 
SLA 


STO 
CODC4 LDX 


LOX 
LOX 


% 


BSC 


* # & 


* 


CODWD DOC 
LHIND DC 
cood0c DC 
Coo01 OC 
coDdo2 OC 


ONE OC 
oC 


Ww ny = 


11 


12 


il 


L2 
L3 


Ll 


L3 


1443 CODE TN 1816/1053 * 


CNDE CONVERSION ROUTINE * 
CHKEREEEREHEEKKEKESESERE SS KEEE ES EE CERES EERES 


» 0 


0 

CODC4+1 SAVE INDEX REGS 

CODC4+3 

CODC4+45 

16 CLEAR LEFT HALF WORD 

LHIND * INDICATOR 

: | 

CcCOIWwD GET WORD TO CONVERT 

16 SET IN Q 

LHIND 

y SKIP IF LEFT HALE 

8 PCSITION RIGHT HALF 

16 

4 ZONE TO ACCUM 

coDoo 

CoD0o IX 1 = ZONE 

16 | 

4 DIGIT TO ACCUM 

coDoo 

CODOO 1X 2 = DIGIT 

ZONE GET ZCNE TA3LE ADDRS 

co0c2+1 SET IN CONVERSION WD 

0 GET CONVERTED CODE 

cov0l | 

LHIND 

CODC392 BRNCH IF 2I1GHT HALF 

LHINDs1 

1 

Co0c1 GO CONVERT RIGHT HLF 

Cobol PACK CONVERTED CODES 

8 

coD02 

COOWD 

0 RESTORE INDEX REGS 

r 

CODCV RETURN TO USER 

CONSTANTS 

0 WORD LOCATION 

0 LEFT HALF INDICATOR 

0 WORK AREA 

0 CONVERTED LH CHARACT 

0 CONVERTED RH CHARACT 
1443 TO 1816/1053 CODE 
CONVERSION TABLES 

ZONEN NO ZONE 

ZONE 1 0 ZONE 


SE 


SX 


PART ND- 


PAGE 


HCTG6120 
HCT06130 


-HCT06140. 
HCTO6150 ” 
HCT06160. 
-HCT06170 
HCT06180 
HCT06190. 


HCT06200 
HCT06210 


HCT06220 
HCT06230 


HC10N6240 
HCT06250 
HCT06260 


HCT06270. 


HCT06280 
HCT06290 
HCT06300 
4CT06310 
HCT06320 
HC T06330 
HCT06340 
HCT06350 
HCT06360 
HCTOS&3 70 
HCT06380 
HCT06390 
HCT06400 


HCT064190° 


HCTC6420 
HCT06430 
HCT06440 
HCT06450 
HCT06460 
HCT06470 
tiCT06480 
HCT06490 
HCT06500 


HCT06510_—s 
HCT06520 > 


HCT06530 
HCT06540 
HCT06550 
HCT06560 
HCT06570 
HCT06580 
HCT06590 
HCTO06600 
HCT06610 
KCT04620 
HCT06630 
HCT06640 
HCT06650 
HCT06660 
HCT06670 
HCT06680 
HC 106690 
HCTO067090 
HCT06710 
HCT06720 
HCTO67 30 
HC T06740 
HCTO6750 
HCT06760 
HCT00770 
HCTC6780 


HCT06790 


PROG ID 


PAGE 


2191208 
SA .. 








03A2-1 
SA 





SJ e . 
ae, be . Be sf ae ea e 
\. : 
| 
woe a porn ° ; 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


CORE STORAGE FUNCTION TEST 


HIGH CORE TEST 


0431 
0432 


oe) 


0433 
0434 
0435 
0436 
0437 
0438 
0439 
043A 
0438 
043C 
0430 
O43E 
043F 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
044A 
0448 
G44C 
044D 
044C 
044F 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
0458 
0459 
D45A 
045B 
045C 
045D 
O45E 


eo90doco0coea00ceco0o0coeceec0ococoeoocoooocooQq0oCco0co0coeceo0ooeo0o00o00I2e 90025 


O45F 
0460 
0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
046A 


oocoeocooco0oo°ce 


046B 
046C 
046D 
O46E 
O046F 
0470 
0471 


ocoqoo0o°90 


DATE 
EC NO. 


0449 
0453 


0021 
NOFC 
O0DR 
OoDC 
OOFG 
OOF4 
0GD0 
0004 
OOE4% 
OOEO 
N00C4 
0000 
9000 
OO9A 
NO9E 
00B2 
OOB6 
0092 
0096 
OOA6 
NOA2Y? 
0021 
9000 
OO7E 
OOSA 
OO5E 
0072 
9076 
0052 
0056 
0066 
00462 
9000 
OO3E 
OOLA 
OO1E 
0032 
0036 
0012 
C016 
0026 
0022 
0086 


~ 0000 


OOOA 
2435 
2426 
2918 
9013 
3512 
1300 
3839 
0033 
2629 
3500 
FEFF 


9006 
2729 
2637 
2931 
2400 
3525 
3400 


OLMAY66 
4154908 


aie 


L 


ZONEN 


ZONEL 


ZONE2 


ZONE3 


MESOl 


MESO2 


ye 
i 


FOR THE 1130 SYSTEM 


ZONE 2 


‘ZONE3— 


7002) 


/OOFC 
/00N8 
/O000C 
/OO0FO 
/O0F4 
/00D0 
/0004 
/O0E4 
/O0EO 
400C4 


JOO9A 
/O09E 
/OOB2 
/00B6 
/0092 
/0096 
/O0A6 
/00A2 
40021 


/OOTE 
JOO5A 
/OO5E 
0072 
400T6 
40052 
40056 
/0066 
0062 


/003€E 
/OOI1A 
/OO1E 
4/0032 
4/0036 
/0012 
/0016 
4/0026 
0022 
4/0086 
/0000 


10 

12435 
12426 
/2918 
40013 
13512 
/1300 
13839 
10033 
12629 
13500 
/FEFF 


2729 
12637 
42931 
42400 
13525 
43400 


OD9aOANOWUF UNE 


L 


11 ZONE 
12 ZONE 


“” 
v 
p> 
oO 
mn 


PACE 


FPOVOS!EFPAG YN< x EC CAMN 


~aIroaonmnmoaoawn pep 


oO 
mn 
yo) 
2 
O 
P*) 


PERIOND 


WORD CT 
ME 
MO 
RY 
: 
ES 
T 
HI 
C 
OR 
E 
TERM 


PART NO. 2191208 
6 


PAGE 


HCT06800 
HCT06810 
HCT06820 
HCT06830 
HCT06840 
HCT06850 
HCT06860 
HCT06870 
HCT06880 
HCT06890 
HCT06900 
HCT06910. 
HCT06920 
HCT06930 
HCT06940 
HCT06950 
HCT06960 
HCT06970 
HCT06980 
HCT06990 
HCTO7000 
HCTO7010 
HCT07020 
HCTO7030 
HCTO7040 
HCTO7050 
HCTOT060 
HCTO7070 
HCTO7080 
HCTO7090° 
HCTO7100 
HCTO7110 
HCTO7120 
HCTO7130 
HCTO7140 
HCTO7150 
HCTO7160 
HCTO7170 
HCTO7180 
HCT07190 
HCT07200 
HCTO7210 
HCT07220 
HCTO7230 
HCTOT240 
HCTO7250 
HCT07260 
HCTO7270 
HCT07280 
HCTO07290 
HCTO7300 
HCT07310 
HCT07320 
HCTOT330 
HCTO7340 
HCTO7350 
HCT07360 
HCTG7370 
HCTO7380 
HCTO7390 
HCT07400 
HCT07410 
HCTO7420 
HCTOT430 
HCTO7440 
HCT07450 
HCT07460 
HCTO7470 


PROG ID 
PAGE 


—03A2-1 
6 


Om ) 

Oo 

Oo 9 

G 

{ 

oO 

oe) 

) 

S) 

2 

— 

» |; UU 

ce sj 
| 

. 

ft ” aa 

es a: 

= a) 

z: 

cm 3 

cz 2 

‘a 4} 

ce 

~~ 

r J 

i) a 

oy 7 

os 

ry 

Ax 2 

ao F 


0474 


- 0477 


CORE STORAGE FUNCTION TEST 





HIGH CORE TEST 


0472 


oO 


0473 


0475 
0476 


0478 
0479 
O47A 
0478 
047C 
0470 
O47E 


oeooo0e9c“#ooo0o0o°o 


O47F 
0480 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 


0489 
O46A 
048B 
048C 
048D 
048E 
O48F 
0490 
0491 
0492 
0493 
0494 
0495 


0496 
0497 
0498 
0499 


ooo°o oooooooo°co°c”do°o oooo0oo0oo0ooc9°co;o 


049A 
049B 
049C 
0490 


ooo 0 


O49E 
O49F 
04A0 
O04Al 


oOoOo00 


04A2 
04A3 
O4A4 
04A5 


04A6 
O4AT 
04A8 
04A9 


oOo0o0 OoOaO00 


O4AA 
O4AB 
O4AC 


oOo°o 


DATE 
EC NO~ 


FFFF 


000B 
3529 
2926 
2900 
3925 
1300 
1213 
2629 
3700 
2729 
2613 
FFEF 


0008 
3529 
2926 
2900 
3925 
1300 
2731 
2939 
13138 
FFFF 


0008 
3529 
2926 
2900 
3925 
1300 
3925 
1500 
2627 
0033 
2634 
3500 
FFFF 


0002 
3529 
0901 
FFFF 


0902 
3529 
0002 


FFEF 


0002 
3529 
0003 
FFFF 


0002 
3529 
0604 
FFFF 


0002 
3529 
9005 
FFEF 


0002 
3529 
0006 


O1MAY66 
4154908 


MESO3 


MESO4 


MESO5 


MESO6 


MESO7 


MESO8 


MESO9 


MES10 


MES11 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


FOR 


/EFFF 


11 

13529 
12926 
/2900 
43925 
41300 
41213 
12629 
43700 
12729 
12613 
/FFFF 


43529 
2926 
72900 
13925 
41300 
2731 
12939 
41318 
JFEFF 


1l 

43529 
42926 
42900 
13925 
41300 
43925 
41500 
2627 
40033 
12634 
43500 
/FEFF 


13529 
/0001 
/FFFF 


13529 
/0002 
/FFFF 


13529 
40003 
JFFEF 


13529 
10004 
/FEFF 


13529 
70005 
/EFFF 


2 
13529 
40006 





TERM 


WD CT 
ER 


TERM 


WD CT. 


TERM 


WO CT 


TERM 


WD CT 


TERM 


WO CT 


TERM 


WO CT 
ER 
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HCTN7480 
HCTO7490 
HCTO7500 
HCTO7510 
KCTON7520 


HCT07530 . 


HCT07540 
HCT07550 
HCT07560 
HCTO7T570 
HCTO7580 
HCTO7590 
HCTC7600 
HCTO7610 
HCTO7620 
HCTO07630 
HCT0 7640 
HCTO7650 
HCTO7660 
HCT07670 
HCTO7680 
HCTO7690 
HCTO7T700 


HCTO7710_ 


HCT97720 
HCT0O7730 
HC707740 
HCTO7750 
HCTOT760 
HCTO7770 
HCTO7780 
HCTO7790 
HCTO7800 
HCTO7810 
HCTO7820 
HCTO7830 
HCTO7840 
HCTO7850 
HCTO7860 
HCTOT7870 
HCTO7880 
HCTO?7890 
HCT07900 
HCTO7910 
HCT07920 
HCTO7930 
HCT07940 
HCTO7950 


HCTO7960 


HCTO7970 
HCTO7980 
HCTO7990 
4CTO8000 
HCTO&8010 
HCT08020 
HCT08030 
HCT08040 
HCT08050 
HCTO8060 
HCTO08070 
HCTO8080 
HCT08090 
HCT08100 
HCTO8110 
HCT08120 
HCT08130 
HCT035140 
4C 708150 


PROG ID 
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2191208 
6A 


03A2-1 
6A 


ete 











reas 
f 
; 


oe 


we oan : a me = . - : i ne " : oa % : 
| ( | ( 
pA,  en Set See “Se Se 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


CORE STORAGE FUNCTION TEST 
HIGH CORE TEST 


O4AD 0 FFFF DC /CEFF TERM 
O4AE 0 0000 RSEND OC 0 
O4AF Q 0000 DC 0 
04B0 0 0000 NC 0 
0482 O12C : END RSDKR 
DATE O1MAY 66 

4154908 


EC NO. 


GC oO 
ane ND. orate oes . IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
{) 7 
CORE STORAGE FUNCTION TEST 
HIGH CORE TEST 
GO 9g 
HCT08160 CROSS REFERENCE LISTING 
HCT08170 o 3 
HCTO8180 a4 SYMBOL VALUE REFERENCES 
HCT08190 COOCV O3FA 0304,0428 
HCT08200 : ge 5 coocl 0401 041D 
| ; —¢co0c2 0413 0412 
COLDC3 3 §=—N41E 0418 
= S COUCS 0422 O3FB,03FC,03FD 
° CODWD 042A 03CF »03D6,0401,0421 
COD0O0 42C 0408,0409,0400,040E 
- - COD01 9420 0415,041E 
COD02 042€ 0420 
IOARA %3FE 03C3,03D8,03E1,03E3,03F8 
-, LHIND 9428 O3FF,0403,0417,041A 
| LOG 1397 03 3B y034F 50356,039F,0395 
LOGOL 0398 
> LOGO2 93A2 O3AA,03AC 
LOGO3 0389 03A3 
LOGOS 93AB 03A6 
7 LOGOS 93AD 03A8 
LOG96 = =0383 0398,03D2 
MESCL 045F | 
MESO2 0468 
MESO3) 9473 0339 
MESO%4S 047F 035i 
: MESO5 0489 0358 
: MESO6G 0496 
7 MESO? 049A 
om | MESOB 049E 
MESO9 04A2 
| MES!0 04A6 
Oy > MES11 O4GAA 
NEXT 0324 0322 
PRSN O3F2 O3AE 
7 - PRSNS 03FO 03A2,0382 
PRWRT 93F4 03A1,03AD 
RSAAB 9141 0130 
= RSAAC 0146 01410159 
RSAAD 0147 013F 
RSAAE 9148 01320136, 014E 
mM a RSAAF O14E 0145 
5 RSAAG) 9153 | 0152 
RSAAH 0149 013540151, 0153,015A,015C 
ca > 0277,02C7,02F7 
' RSAAI O15C 0157 
RSAAS 0152 O15F 
i a RSAAK O14A 014270174,0290 
; RSAAL 0160 0171 
| RSAAM 9164 012F 
.: > RSAAN 0166 012C 
RSABA O1T1 O15B 
RSABB 0185 0183 
“ _ RSABC 0187 O18F 
° RSABD 0199 018C 
RSABE 0192 01A0,01AA,01B81 
- y RSABF OLAS 0196 
: RSABG JILB2 OLAE 
RSABH 9184 016A,031B 
r) = RSABI 0182 0175,030E 
° RSABJ 0106 01C7 
: RSABK O1FT7 O1E8 
i. = RSABL O1E0 01F2,01FD 
RSABM 0205 0201 
RSABN 918F 9104,01DC,020C 
- 4 RSABO 0200 0208 
a RSABP 0180 O20E 
RSABQ O1E] 0204 
7 5 RSABR  0O18C 0215 
PROG ID 03A2-1 TY 5 DATE O1MAY66 
415490B 


PAGE 7 | , = = EC NC. 


( ( { | | (o,f ; 
; Le F ee oo S50 F ee, Re, oe ed Sacre tes : eee : See cares WS 4 


PART NOe 2191208 
PAGE | 7A 


70387,03CA 


1 015E,01AB,01A990206,0248, 


PAGE 


PROG ID 03A2-] 
TA 











IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART ND. 
| , : PAGE 


CORE STORAGE FUNCTION TEST 
HIGH CORE TEST ; 


RSACA 0245 0240 

RSACB 0238 024E 

RSACD 9247 0244 

RSACE 025A 0256 

RSACF 026A 0259,025B 

RSACG 0254 026E 

RSACH 0252 026540274 

RSACJ 0220 0217,0282 

RSACK 0226 0279 

RSACL 0251 027C 

RSACM 0285 O2AC 

RSACN  029F 02B6,02C0,02C9 

RSACO 0243 029A,02C6 

RSACP 2B 020C 

RSACQ 0203 02E6,02F0,02F9 

RSACR 0204. 0202,02F6 

REACS 0297 O2FF. 

RSACU 1296 0292,0303 

RSACV 0290 0284 

RSACWH 0270 0229 

RSACX 922A 0228 

RSADA 0305 0294 

RSADB 024F 024A 

RSCCA 931D 0168 ¥03414035E,0 36470369 

RSCCB. 00343 032E,033€ 

RSCCC 0352 034D 

RSCCD 0359 033990349, 0354 

RSCCE 0367 O31F 

RSCCG 033F 0331 

RSCCH 0368 0363 

RSCCQ 9318 0307 

RSD0D 037E 01A2,01C9,01F 440267; 02BB8y02E8, 0380 1038340385 ,038Cy 
0392 

RSODJ 0390 037F 

RSDOK 0394 032A 

RSDDX 0380 

RSOKR  O12C 0481 

RSOKS 0O12F 016410166, 0319,0395 

RSEND O4AE 016A,02A3,02D4 

RSEXI 0310 

RSFAA 0148 0182 

PSFAB O14C 0183,0305 

RSFAC 0140 0134 

RSQAC O16A 018549190, 018D,0238,024F 40297, 02CF 

RSQAD 0168 0179 

RSQAE 916C 0187 0188s 0189,01920193,01S55,01 AC 

—RSQAF 0168 019A,01A5+01B4,01CE 901065 0LECyO1LF 7, 020F 9 025F y026F ¢ 


027D,02B0, 02BB,02E0, 02EB s02FD 10308 0310403240333 
034340359, 0386.0 399 


RSQAH 921A 01BF 401C0,01C3yC1C 5y OLE s O1E5s02054020A 40224202285 
022E »022F y0231,0232,023570236 

RSQAI 0218 01C2 

RSQAJ 021C ‘OLDE 

RSQAK 02190 O1DF,O1EO, OLE 3,01E 7,01 FF 40203 

RSQAL O16E 01684 019C,01A6,0186,0100,0108,y O1LEE yOLF9,0211,0261y 


0271,027F »02B2502BD_ C2E2,02EDy D2FF 40 30A 5031220326, 
0335,0345, 0358,0388,039B 


RSQAM O21€ 020B,02C 3, 02F 3 

RSQAN N21F 0198,01CC,01EA,025D,G2AE,02D0E, 038E 

RSQAO 0169 0178 

RS QAP 0160 0177 

RSQAQ 0218 0224 

RSQAR 0219 022570226 

RSQAS 318 0314 

RSQAU O1L6F o17C 

RSQAV 9170 O1LTF 

RSQAW 9316 

RSRAA 9285 023A,023B,y 024240245,0247,024C 90251 90254,026A,0276 
DATE O1MAY66 | PROG ID 


EC NO. 415490B | | PAGE 


2191208 


‘3A2-1 
8 


ry 


e 
: 3 
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‘ee 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM | PART NO. 2191208 


_ PAGE 8A 


CORE STORAGE FUNCTION TEST 
HIGH CORE TEST 


RSRAB 0286 0230,623F 
RSRAC 0287 022C ¥0233s0258,025A,029F,02AB 
RSRAE 0288 0299,02A0,02A4202A7,02A9 402C2402C5,0201 4920520208, 
02DA,02F2,02F5 
RSRAF 0289 02A6,0207 
* RSRAG O28A - 0188,0213,0281,0301 
“RSRAH 0288 - 030C 
~~ RSRATI 028C — 019E&,01A8,0102,01DA,01FO,01F8, 0263 +0273»02B4,02BFs 
. 7 02E4,02EF 
RSRAJ O28E 0252 
RSRAK O28F j $0253,026C 
RSRAX 9280 0337,0347 
RSSAA 0368 031E,0366 
RSSAC 036E 0320 
RSSAD 0370 0321,032C,033F 40 34B,0352,0360 
RSSAE 0374 032N,0340 
RSSAF 0371 0290,02CD, 0330 
RSSAG 0372 O2CB 
RSSAH 0373 029B 
RSSAI 0375 034C 
RSSAJ 0376 0353 
RSSAK 0377 035D,038A 
RSSAL 0378 0381 
RSSAM 0379 0384 
RSSAN 037A 0362 
RSSAO 0378 0328 
RSSAP u37C 0329 
RSSAQ 037D 0394 
TWRTR 0389 0390,03C1 
TWRTO O3€B 03C2 
TWRT1 O3EC 0301 
TWRO) 03C2 O3BE 
TwWRO2 03CD 03CC,03EA 
TWRO3 O5E7 03€0 
TWSNS 3F6 017D,03B88,03C5,03DA 
THWRT O3F8 0180,03C4,0309 
WROSW O3€ED 03BA,03DE,03E4,03E8 
XIOSN O3DA 030D 
XiOWR 0309 03E6 
ZONE 042F 0410 
ZONEN 0433 042F 
ZONEL 043€E 0430 
ZONE2 0449 0431 
ZONE 3 0453 0432 
DATE O1MAY66 | —_ | : PROG ID 03A2~1 
| : SA 


EC NO. 4154908 © | me a PAGE © 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


CORE STORAGE FUNCTION TEST 
0-9 CORE TEST 


028C 
012C 
012D 
012F 
0131 
0133 
0135 


0140 
0141 
0143 
0144 
0146 
0147 
0149 
O14A 
014C 


O14E 
014F 
0151 
0153 
0154 
0156 
01528 
N15A 
015C 
O1SE 
0160 
0162 
0154 
0165 
0167 
0168 
016A 


0168 
016C 
016D 
O1L6E 
O16F 
0170 
0172 


0174 


DATE 


© oo0o0o0 


EC NO. 


C845 

NC 000000 
C4000232 
04000231 
C40001B8C 
94000184 


C4000137 
D4000003 
6300 

C4000003 
4C1B014E 


CO2A 
D40C0227 
C029 © 


04000285 


C025 
N40002B7 
C025 
D4000174 
D40001EC 


COLF 

04000000 
C40001B4 
DOO! 

D40001B4 
C4000000 
4€180165 
94000183 
94000184 


04000185 


840090182 
94000189 
TOOF 
C40901B4 
1001 
940001 Bé. 
TOE8 


0240 
0902 
OFO3 
0900 
3900 
90092 
4C00012F 


1000 


OIMAY 66 
4154908 


3 ; 
* MEMORY TEST-0-9 CORES 
ee 
* : 

ABS : 
ORG 300 
RSSTB LOD RSAAN 
STO L O 
RSSTA LD L_ RSNPP 
STO L RSPPC 
LD -L_ RSLAJ 
STO L RSLAA 
PY 
* DETERMINE MACHINE TYPE 
} 4 
LD L_ RSLAE 
sto tL 3 
LDX x3 0 
LD ot 3 
BSC L  RSDMSy+- 
« 
‘* 1800 MODIFICATIONS 
‘LD RSR18 
STO Lt RSRBS42 
LD RSD18 
STO L  TWSNS41 PROL 
LD RST18 
STO L TWWRT+1 PRO2 
LD WAITO 
STO L WAITA 
STO &£ WAITS 
" 
* MEMORY SIZE ROUTINE 
x 
RSDMS LD RSZRO 
STO L O 
LD L_ RSLAA 
RSKBC STO RSKBA+] 
RSKBA STO L_ RSLAA 
iD t 0 
BSC L RSKBDy»+- 
S L  RSLAB 
STO L RSLAA 
STO L  RSLAC 
A L RSLAQ 
STO -L  RSLAG 
MDX WAITA 
RSKBD LD LL RSLAA 
SLA 1 
STO L  RSLAA 
MDX RSKBC 
x 
* STORAGE FOR INITIALIZATIONS 
* 

—RSR18 DC 10240 1800 READ SWITCH 
RST18 OC 10902 1800 TYPE 
RSO018 OC /OF03 1800 TYPE DSW-RESET 
RSZRO DC. /C000 CONST ZERO 
WAITO DC 43009 WAIT INSTRUCTION 

BSS E 2 
RSAAN BSC L_ RSSTA 
x 


* WAIT TO TURN DISABLE INTERRUPT 
* SWITCH TO ON POSITION-1800 ONLY 


* 
WAITA 
* 


SLA 


07 — DISABLE INTERRUPTS 


PART 
PAGE 


0-900000 
0-900010 
0-900020 
0-900030 
0-900040 
0-900050 
0-900060 
0-900070 
0-900080 
0-900090 


0-900100. 


0-900110 
0-900120 
0-9001 30 
0-900140 
0-900150 
0-900160 
0-900170 
0-9001 80 
0-900190 
0-900200 
0-900210 
0-900220 
0-900230 
0-900240 
0-900250 
0-900260 


-0-900270 
0-900280. 


0-900290 
0-900300 
0-900310 


-0-900320 


0-900330 
0-900340 


0-900350 
~0-900360 


0-900370 
0-900380 
0-900390 
0-900400 
0-900410 
0-909420 


'0-900430 


0-900440 
0-900450 
0-900460 
0-900470 
0-900480 
0-900490 
0-900500 
0-900510 
0-900520 
0-900530 
0-900540 
0-900550 


0-900560 


0-900570 
0-900580 
0-900590 
0-900600 
0-900610 


0-900620_ 


0-900€30 


0-900640 | 


0-900650 
0-900660 
0-900670 


PROG ID 


PAGE 


NOe 


2191208 
9 


03A2-1 
9 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


CORE STORAGE FUNCTION TEST 
0-9 CORE TEST 


° 0175 
0176 
0178 
O17A 
O17C 
O17E 
O17F 


0181 
0182 
0184 
0186 
0187 
0189 
0188 
018C 


O18E 
O1aF 
0191 
0193 
0194 
0196 
0198 
0199 


0198 
019C 
0190 
OL9E 
01A0 
O1A2 
O1A3 
O1A5 
O1LAT 
0148 
OLAS 
O1AA 
O1AB 
O1AD 
G1AE 
—OLAF 
01861 


0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
O1B8A 
0188 


018C 


DATE 


oo Koko R= Ro No Rok none) 


EC NO. 


C040 

94800185 
C48001865 
4C18017F 
44000202 
TOF6 

44900238 


C035 
94800165 
C4800185 
F)30 
4C1RO18C 
44000202 
TOFS 
44000238 


C026 
948001B5 
C4800185 
F021 
4€180199 


‘44000202 


TOFS 
44000238 


COLF 
DON1B 
COLA 
D48001B5 
C4800185 
FOILS 
4C1801A8 
44000202 
TOFS. 
COOF 
1801 
D000 
4C1L&O1LAF 
TOEF 
TOEC 
44000238 
T0O0B 


0000 
0003 
0800 
0000 
0000 
FFFF 
8000 
0000 
0001 
8000 
0800 


O1MAY66 > 
4154908 


MAIN ROUTINE 


* 

x 

* | 
* LOAD ZEROS IN CORES 
* ; 

R 


SRO1 LD RSLAD ACC=/0000 
STO I RSLAC 
LD I RSLAC 
BSC L RSQO1s+- 
BSI L RSEOR 
MDX RSRO1 
RSQOl BSI Lt RSLOP 
x 
* LOAD ONES IN CORES 
x 
RSRO2 LD RSLAE ACC=/FFFF 
STO  RSLAC 
LD I RSLAC 
EOR RSLAE 
BSC L . RSQO2s+- 
BSI & RSEOR 
MDX RSRO2 
RSQO2 BSI Lt RSLOP 
* 
* ADDRESSING ROUTINE 
x 
RSRO3 LD RSLAC ACC=ADDRESS 
STO I RSLAC see 
LD I &SLAC 
EOR RSLAC 
BSC Lt RSQO3,+- 
BSI L RSEOK 
MDX = RSROZ 
RSQO3 BSI L_ RSLOP 
* 
* BIT ISOLATION ROUTINE 
x 
RSVBB LD RSLAI 
ST3 RSLAF 
RSRO4 LD RSLAF ACC=BIT PATTERN 
STO I RSLAC 
LD I RSLAC 
EOR RSLAF 
BSC L RSQ04s+- 
BSI L  RSEOR 
MDX RSRO4 
RSO04 LD RSLAF 
SRA 1 
STO RSLAF 
BSC L RSBIL»+- 
MDX RSROG 
MDX RSVBB 
RSBIL BSI L RSLOP 
MDX RSSPT 


* 


* STORAGE AREAS-1 | 


* 
RSLAQ DOC 
RSLAB OC 
RSLAA DC 
RSLAC DC 
RSLAD DC 
RSLAE DOC 
RSLAF DC 
RSLAG OC 
RSLAH DC 
RSLAI OC 
RSLAJ OC 


13 NUMBER OF CORES TO TEST 


3 NUMBER OF CORES BELO 0 
soso LOWEST ADDRESS TO TEST=-3 
") ADDRESS UNDER TEST 

70000 

/EFFF 

#8000 BIT PATTERN UNDER TEST 

O HIGHEST ADDR TO TEST 9. 
48000 INITIALIZE BIT PATTE N 


4/0800 INITIALIZE MEMORY SIZE 


PART NO. 


PAGE 


0-900680. | 
0-900690.. 


0-900700 
0-900710 
0-900720 
0-900730 
0-900740 


0-900750 | 
0-900760 _ 


0-900770 


‘0-900780 
. 0-900790 
0-990800 | 


0-900810 


2191208 
9A 


0-900820. 


0-900830 
0-900840 
0-900850 


0-900860 


0-900870 
0-900880 
0-900890 
0-900990 


0-900910 _. 


0-900920 


0-900930 . 


0-900940 
0-900950 


0-S00960 | 


0-900970 
0-9C0980 


-0-900990 | 


0-901000 
0-901010 
0-901020 
0-901030 
0-901040 
0-901050 
0-901060 
0-901070 
0-901080 
0-901090 
0-901100 
0-901110 
0-901120 


0-901130 


0-901140 


0-901150. 


0-901160. 


0-901170 


0-901180. 


0-901190 
0-901200 
0-901210 
0-901220 
0-301230 
0-901240 
0--9012250 
0-901260 
0-901270 
0-901280 


0-901290 © 


0-901300 


0-901310 | 
0-901320 


0-901330 
0-901340 


0-901350 


PROG ID 


PAGE 


(03A2-1 
9A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191208 IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191208 
PAGE 10 PAGE 10A 
o -~ 
CORE STORAGE FUNCTION TEST ~ CORE STORAGE FUNCTION TEST 
0-9 CORE TEST 0-9 CORE TEST 
i 3 
* 0-901360 020B 0 CO1D RSSBT LD RSBSB SENSE SW 12 FOR HALT ON E O-902040 
* STORAGE PROTECT TEST 0-901370 ae co O020C 0 COLC LD RSBSB 0-902050 
* 0-901380 ~ 0200 0 FOLF AND RSBl2 0-902050 | 
01RD 00 C4900187 RSSPT LD L RSLAE ACC=/FFFF 0-901390 O20E 00 4C€080212 BSC bE RSHOE,+* 0-902070 
QO1BF 00 94060003 STO L 3 0-9014C0 = 0210 00 4C€800202 BSC I RSEOR 0-902080 
01C1 0 46300 LOX x3 0 0-901410 - 0212 90 C4000185 RSHOE LD { RSLAC 0-902090 
0102 00 C4C00003 LO L 3 0-901420 0214 0 FOLF AND RSCON 0-902100 
01C4 00 4C1801&6 BSC L_  RSPER,+- 0-901430 ei 0215 0 F810 OR RSWAT 0-902110 
01C6 0 COEF RSROS LD RSLAD ACC=/0000 0-901440 ™ 0216 0 949909005 STO RSERW 0-902120 
01C7 00 048090185 STO I RSLAC 0-901450 0217 0 COEA LD RSEOR 0-902130 
01C9 0 ?CC1 DC /2CCl STORAGE PRTI-IA 0-901460 = 0218 O00 940001BA S t  RSLAH 0-902140 
O1CA O O185 DC RSLAC 0-901470 a O21A 0 1890 SRT 16 LOAD I IN Q 0-902150 
O1CB O COEC LD RSLAF ACC=/FFFF 0-901480 021B 0 COOE LD RSAKB . 0-9021 60 
O1CC 00 44800185 STO TI RSLAC 0-901490 ae O21C 0 3000 RSERW WAIT 0-902170 
O1CE OO C48G01B5 LOD I RSLAC 0-901500 “ 0210 00 4C€800202 BSC I RSEOR 0-902180 
0100 00 4C€1801N5 BSC L RSQ05,¢4¢- 0-901510 O21F O CO17 RSILC LOD RSALT 0-~902190 
9102 00 44000202 BSI t RSEOR 0-901520 > 0220 0 3000 RSwSC WAIT 0-902200 
0104 0 TOFI1 MDX RSROS5 0-901530 = 0221 00 5400012F LDX L RSSTA 0-902210 
01955 00 44000238 RSQO5 BSI L RSLOP 0-901540 * 0-902220 
01D7 0 2CCO . RSRO6 DC 42CCO CLEAR SP-IA 0-901550 ai * STORAGE AREAS-2 0-902230 
0108 0 0185 DC RSLAC 0-901560 a * 0-902240 
0109 0 CODE LO RSLAF ACC=/FFFF 0-901570 0224 9002 BSS E 2 0-902250 
019A 00 04800185 STO I RSLAC 0-901580 = 0226 0 9229 =SRBS DC RSBSB 0-902260 
O01DC 00 C48001B5 LD I RSLAC 0-901590 a 0227 0 3A40 DC 13A40 0-902270 
01D0E 0 FOD9S EOR RSLAF 0-$01600 0228 9 90000 RS8AB OC 0 0-902280 
O1DF 90 4SC1SOLES BSC L RSQ06,4- 0-901610 0229 0 3900 RSBSB DC 0 BIT SWITCH BUFFER 0-902290 
O1E1 00 440090202 BSI L RSEOR 0-901620 as 022A 0 3000 RSARB OC 0 SAVE A REG 3UFFER 0-902300 
O1E€3 0 79F3 MDX RSRO6 0-901630 022B 0 1920 RSB10 OC 10020 0-902310 
O1E4 CO 44000238 RSQ06 BSI tL RSLOP 0-901640 = O22C 0 9O910 RSBl1 DC 70010 0-902320 
* 0-901650 - 022D 0 13008 RSB12 OC 40008 0-902330 
* PROGRAM END ROUTINE 0-901660 O22E 0 0004 RSB13 OC 10004 C-902340 
* 0-901670 ee O22F 0 9902 RSB14 OC /0002 0-90235&0 
O1E6 CO T4FFO231 RSPER MDX L RSPPC,-1 COUNT PRGM PASSES 0-901680 . 0230 0 0001 RSBLS DC /Ooool 0-902360 
01E8 O T708C MOX RSRO] 0-901690 0231 0 1000 RSPPC DC 0 0-902370 
O1E9 0 CN1O LD RSRSX 0-901700 = 0232 0 0032 RSNPP DC 50 0-902380 
O1EA OO 04000008 STO t 7/8 0-90!1710 ° 0233 0 3000 RSWAT DC 43000 0-9023°0 
* 0-901720 0234 0 OFFF RSCON DC SOFFF 0-902400 
* WAIT TO TURN DISABLE INTERRUPT SWITCH 0-901730 ~ = 0235 0 9028 RSKXA DC /0028 0-902410 
* TO OFF POSITIQN-1800 ONLY 0-901740 0236 0 0020 RSKXB OC 40020 0-902420 
* 0-901759 0237 0 5555 RSALT DC 45555 0-3902430 
O1EC O 1000 WAT'tB SLA, 0 ENABLE INTERRUPTS 0-901760 s * 0-902440 
Ol1ED O O83R RSPES XIO RSBSB REPEAT PROG IF SW 14 ON 0-901770 : * CHECK SWITCH 13 TO LOOP ON &0UTINE 0-902450 
Ol1EE 0 CO3A LD RSBSB 0-901780 * 0-902469 
OLEF O FO3F AND RSB14 0-901790 "1 = 0238 0 0000 RSLO? OC 0] 0-902470 
O1FO 00 4€C70012F BSC L RSSTAeZ 0-901800 0239 00 C4000185 LD L RSLAC 0-902480 
Ol1F2 9 C936 LD  RSBSB 0-901810 0238 OO F40001B9 EOR L RSLAG 0-902490 
O1F3 0 €93C AND RSB15 0-901820 7 ~ 023D 00 4€180249 BSC L RSCSE,#t—- 0-902500 
O1F4 00 4C?001F8 BSC LL RSHOP,2Z 0-901830 023F 90 C40N01B85 LD L RSLAC 0-902510 
0O1F6 09 64000059 RSFIN LDX tet £0050 LINK TO NEXT PROG 0-901840 0241 00 840001AR4A A tL RSLAH 0-902520 
O1F8 9000 BSS E 0 0-901850 - 0243 00 04000185 STO L RSLAC 0-902530 
O1F8 0 0090 RSSIC DC 0 0-901860 : 0245 OC 74F0D0238 MNX £L RSLOP,-3 0-902540 
O1F9 0 19300 DC 4/0300 0-901870 9247 00 4C€800238 BSC I RSLOP 0-902550 
Ol1FA O OLFE RSRSX DC RSRSI 0-901880 - 0249 00 C+000184 RSCSE LD CL RSLAA LOAN LOWES? ADDRESS 0-902560 
OLFB 0 3000 RSHNP WAIT 0-901890 , 024B 00 94000185 STO L- RSLAC 0-S02570 
O1FC 00 6400012F RSBTB LDX L RSSTA 0-901900 024D 0 0808 XIO RSRBS READ SW 13 TO LOOP R UTINE O-902580 
O1FE O 90000 RSRSI OC 0 0-901910 = O24E O CODA LO RSBSB 0-902590 
OLFF O ‘D8FR X10 RSSIC 0-901920 : O24F O FODE AND RSB13 0-902600 
0200 00 4C4Q01ED BCSC tL RSPES 0-901930 0250 00 4€980238 BSC I RSLOP,+¢- 0-902610 
* 0-901940 : + 0252 00 74FD0238 MDX L RSLOP,-3 0-902620 
* ERROR ROUTINE 0-901950 ‘ 0254 00 4C€800238 BSC I RStOP 0-902630 
& 0-901960 EKKSEKKKKKKKEKKE SEKEERKE SEK KEKKEKEEKECHKSE KES SKKEE 0-902640 
0202 0 90000 RSEOR OC /0C00 RETURN ADDRESS FOR E ROR 0-901970 - 4 * LOG ROUTINE * 0-902650 
0203 0 DN26 STO RSARB 0-901980 < RKEKREKEKKKKEKKKEKKKKKTE SKKKKE SK AKSKKEKKKEKES C-902660 
0204 0 0821 X10 RSRBS SENSE SW 11 FOR SCOP NG LO 0-901990 * 0-902670 
0205 0 C023 LD RSBSB 0--902000 am oe 0256 O 0000 LOG DC ¢] SE 0-9V2680 
0200 0 £025 AND RSB11 0-902010 | 7 0257 9 6B1B LOGO1L STX 3 LOGO0641 SAVE IX 3 0-90 2690 
0207 00 4C18020B BSC L RSSBT,#—- £CONTINUE IF 12 OFF 0-902020 0258 00 0C000226 XIO L RSRBS 0-902700 
0209 00 4C€800202 BSC I RSEOR 0-902030 = ~ 025A 00 C4000229 LD tL RSBSB 0-902710 
DATE O1MAY66 PROG ID O3A2-1 a DATE O1MAY66 PROG ID 03A2-1] 
EC NC. 415490B PAGE 10 ° EC NO. 415490B PAGE 10A 


“0 rm En a senile ra ec ts ns Secale: mlm 2 
ae] 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


CORE STORAGE FUNCTION TEST 
0-9 CORE TEST - 3 


BSC 


BRANCH IF 1053 OUTPU 


925C 00 4C10027R L TWRTR»- 
| : is 
O025E 06 C4800256 LD I LOG GET MESSACE ADDRESS 
0260 0 9051 STO PRWRT SET IN IOCC 
* 
0261 0 84C LOGO2 XIO PRSNS CHECK PRINTER READY 
0262 00 4€040268 BSC L  LOGO3sE BRANCH IF NOT READY 
0264 0 1801 SRA 1 
0265 00 4C04026A BSC L LOGO4sE BRANCH IF BUSY 
0267 0 7064 MDX LOGOS READY AND NOT BUSY 
x 
0268 0 300A 1.0GO3 WAIT 10 NOT READY 
0269 0 7OF7 MDX LUGO2 CHECK .GAIN 
tk 
026A 0 3008 LUGO4 WAIT 11 BUSY 
026B 0 TOFS MDX LOGO2 CHECK ASAIN 
& 
O26C 0 0845 LOGCS XIO PRWRT CUTPUT MESSAGE 
* 
0260 0 9842 X10 PRSN CHECK FOR OP COMPLT 
026E 0 i002 SLA 2 
O26F 0 4810 BSC - 
0270 0 7OFC MUX *-4 
0271 0 983C X10 PRSNS RESET OSW 
a 
* PRINTING COMPLETE 
* 
0272 00 67000000 LOGO6 LDX ‘L3 0 RESTORE 1X 3 
0274 00 74010256 MDX L LOGel BUMP RETURN 
0276 00 4C800256 BSC I LOG RETURN TO USER Sx 
* : 
9278 0 19010 TWRTR SLA 16 
0279 0 0032 STO WRDSW 
027A 0 0839 x10 TWSNS CHECK IF TYPEWRITER 
0278 0 1005 SLA 5 READY | 
O27C 0 190F SRA 15 
0270 00 4C180281 BSC Lt TWRO1,+- 
x 
O27F 0 300C WAIT 12 NOT READY 
0280 0 70F9 MDX TWRIR+2 
x . 
9281 0 £028 TWRO] LD TWRTO CARRAIGE RETURN AND 
0282 0 D02A STO IDARA LINE SPACE TO 10 ARA 
x 
0283 0 0832 X10 TWWRT CARG RETURN/LINE SP 
| P | 
0284 0 082F X10 TWSNS HANG TILL NOT BUSY 
0285 0 1A0R SRA 1} | 
0286 0 4804 BSC E 
0287 0 7OFC MDX +4 
x : 
0288 0 6301 Lox 31 BYPASS 1443 WORD COU T 
0289 00 C4800256 1D I LOG GET MESSAGE ADDRESS 
0288 0 0001 STO TWRO2#1 
* : 
028C 00 C7000000 TWRO2 LD L3 0 GET WORD TO PRINT 
O028E 00 940002E8 STO L CODWD SET IN CONVERSION RT 
0290 0 FOLA EOR TWRT1 CHECK IF TERMINATOR 
0291 00 4C180272 BSC L LOGOoy+- BRANCH IF TERMINATOR 


* 


EKSKEKEKEKKKEEKKKKEKREREKKKE TRASH EERE ESEEREKEKES 


BSI t CODCV GO CONVERT 43 TN TW 
SECRETE EES ESEK EK EEEEEEEKKEERES TES EEEEEEE EKER E 


4 


0293 00 440002388 SRC 


0295 00 C40002E8 LO  & CODwWD 

0297 9 0015 | STO IOARA 
& 

DATE O1MAY66 

EC NO. 4154908 


PART 
PAGE 


0-902720 


0-902730 © 


0-902740 
0-902750 
0-902760 
0-902770 


' 0-902780 


0-902790 
0-902800 
0-902810 


0-902820 


0- 902830 
0-902840 
0-902850 
0-902860 
0-90287C 
0-902880 
0-902890 
0-902900 
0-902910 
0-902920 
0-902930 
0-902940 
0-902950 
0-902960 
0-902970 
0-902980 
0-902990 


0-903000 . 


0-903010 
0-903020 
0-303030 
0-903040 
0-903050 
0-903060 


-0-903070 


0-903080 
0-9C3090 
0-903100 
0-903110 
0-903120 
0-903130 
0-903140 
0-903150 
0-$03160 
0-903170 
0-903180 
0-903190 
0-903200 
0-903210 
0-903220 
0-903230 
0-903240 
0-903250 
0-903260 
0-903270 
0-903280 
0-903290 
0-903300 
0-903310 
0-903320 
0-903330 
0-903340 
0-903350 
0-903360 
0-903370 


0-903380 > 


0-903390 


PAGE 


NO. 





2191208 
. 


PROG ID 0O3A2-1 
Te | 


a 


cx 





18M MAINTENANCE DIAGNGSTIC PROGRAM FOR THE 1130 SYSTEM 


CORE STORAGE FUNCTION TEST 


0-9 CORE TEST 


0298 


© 


0299 
O29A 
0298 
029C 


oo00 


0290 
O29E 
O29F 


OoOo°0o 


0240 
O2Al 
O02A? 
02A3 
O2A5 


oOo0o0c0 


O2A6 O 
O2A7 00 
_ O2aA9 O 


O2AA 
O2AB 
OZAC 
O2AD 


Qo0 0 


O2RKE 


O2AE 
O2AF 
0280 
02B1 
0282 
0283 
0254 
0285 
02B6 
0287 


eoQqogooo0eo0o°o°o 


0288 
9289 
O2BA 
O2BB 


O2BC 
0280 
O2BE 


O2BF 
02C0 
02C1 
02C2 
02C3 


oco°o°o ooo OoO0O00 


DATE 
EC NO. 


0810 


OB1A 
180B 
4804 
TOFC 


COOE 
4304 
7006 


Ccooc 
1008 
DOOA 
T401N2AC 
TOF2 


7301 
T401024C 
TOF2 


8103 
FFF 
9000 
0000 


0000 


90900 
3701 
0009 
2700 
0000 
3500 
0000 
OFO] 
O2AD 
0900 


0000 
4927 
6428 
6B29 


1010 
DO2B 
6300 


C028 
1890 
C027 
4820 
1088 — 


O1MAY66 
4154908 


* 
* 
XTOWR 
* 


XIOSN 


* 


TWRTO 
TWRTL 
WROSW 
IOARA 
* 


& 
PRSNS 
PRSN 
PRWRT 
TWSNS 
TWWRT 
= 


*x 
*x 


X10 


XiO 
SRA 
BSC 
MDX 


LD 
BSC 
MDX 


LD 

SLA 
STO 
MOX 
MDX 


MOX 
MOX 
MDX 


OUTPUT A CHARACTER 


TWWRT WRITE CHARACTER 
TWSNS HANG ON BUSY 
ll 
E 
XIOSN BUSY 

CHECK IF 1ST 1/2 WORD 
WROSW GET 1/2 WORD SWITCH 
E 7 
TWRO3 GO SET UP NEXT WORD 


SET UP FOR 2ND 1/2 WORD 


IOARA 

8 POSITION 2ND 1/2 WD 
ICARA 

WROSWs 1 BUMP WORD SWITCH 
XITOWR 


GO WRITE 2ND 1/2 WD 
SET UP FOR NEXT WORD 


3 1 NEXT WORD INDEX 


WRODSW.1 BUMP WORD SWITCH 
TWRO2 GO GET NEXT WORD 

LOG CONSTANTS 
48103 LINE SP/CARRAIGE RTN 
/FFFE TERMINATOR 
0 1/2 YORD SWITCH 
0 OUTPUT AREA 
0 
4/0000 PRINTER SENSE IOCC 
73701 
0 NON RESET SENSE 
/3700 : 
“0000 PRINTER WRITE IOCC 
43500 
40000 TYPEWTR SENSE IO0CC 
/OFO1 DSW RESET PMC1l 
IOARA TYPEWTR WRITE YOCC 
4/0900 WR TYPEWRITER PMO2 


KKKKEKKEAREKKEK SEEKEKKEKRKKSE AKKERSESHEHKK KEKE HERES 


1443 CODE TO 1816/1053 * 
CODE CONVERSION ROUTINE * 


KEEKEKSEKKKEKESK EE KKKKHKKEKSE SS KKESSEKEKSESKKEEKEKEKS 


* 
CODCV 


f£ODCL 


oC 

STX 
STX 
STX 


SLA 
STO 
LDX 


LO 
SRT 
LD 
BSC 
SLT 


0 SE 
1 CODC4+1 SAVE INDEX REGS 
2 CO0C4+3 
3 CODC4+5 
16 CLEAR LEFT HALF WORD 
LHIND * INDICATOR 
0 | 
CODwWD GET WORD TO CONVERT 
16 SET IN Q 
LHIND 
Z SKIP IF LEFT HALF 
8 POSITION RIGHT HALF 


PART NO. 2191208 
Ber 


PAGE 


0-903400 


0-903410 
0-903420 
0-903439 
0-903440 
0-903450 
0-903460 
0-903470 
0-903480 
0-903490 
0-903500 
0-903510 
0-903520 
0-903£30 
0-903540 
0-903550 


' 0-903560 


0-903570 
0-903580 
9-903590 
0-903600 
0-903610 
0-903620 
0-903630 
0-903640 
0-903650 
0-303660 
0-903670 
0-503680 
0-903690 
0-903700 


0-3903710 - 


0-90372C0 


- 0-903730 


0-¢C03740 
0-903750 
0-903760 
0-903770 
0-903780 


0-903790 


0-903800 


0-903810. 


0-903820 
0-903830 
0-903840 


0-903850 


0-903860 
0-9038670 
0-903880 
0-903890 


0-903900 | 


0-903910 
0-90392N 
0-9039 30 
0-903940 
0-903950 
0-903960 


0-903970 | 


0-903980 
0-903990 
0-904000 
0-904010 
0-904020 
0-904030 
0-904040 
0-904050 
0-904060 


0-904070 


PROG ID. 


PAGE 


03A2- 


1. 


LIA 


— ot, 














IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


CORE STORAGE FUNCTION TEST 
O-9 CORE TEST 


02C4 
02C5 
02C6 
02C7 


02C9 
O2CA 
O2CB 
O2CC 


O2CE 
0200 


0291 
0203 


0205 
0206 
02598 
O2DA 
0208 


O2DC 
02D0 
O2DE 
020F 


O2E0 
O2E2 
O2E4 


O2E6 


O2E8 
O2E9 
O2EA 
O2EB 
O2EC 


O2ED 
O2EE 
O2EF 
O2FO 


O2F 1 
O2F2 
O2F3 
O2F4 
O2F5 
O2F6 
O2FT7. 
O2F8 
O2F9 
O2FA 
G2FB 
O2FC 
O2FD 
O2FE 
O2FF 
0300 


DATE 


Co0o°o iad 


o 


Oo 
oO 


oeooo0o°0o 


ooocoo0occocooooqocdeso ooo°o 


EC NO. 


1010. 
1984 
DV23 
S5B002EA 


1010 
1084 
DOLE 
668002EA 


C5O0002ED 
001 


C6000000 
DTO002EB 


C913 
4€C2002DC 
T40102E9 
7301 
TOE3 


COOE 
1008 
EBOD 
008 


650090000. 


66000000 
67000000 


4C8002R8 


0000 
0900 
9000 
0900 
0000 


O2F 1 
O2FC 
9307 
9311 


0021 
QOFC 
00D8 
OODC 
OOFO 
ONF4 
00D0 
0994 
OOE4 
OONFO 
ONCS 
0000 
9000 
OO9A 
OO9E 
0082 


O1MAY66 
415490B 


CODC2 


COo0c3 


CODC4 


% 


ONE 


-ONEL 


SLA 
SLT 
STO 
LDX 


SLA 
SLT 
STO 
LDX 


LD 
STO 


LD 
STO 


LD 

BSC 
MOX 
MDX 
MDX 


LD 
SLA 


STO 


LDX 
LDX 
LAX 


BSC 


DC 
DC 
OC 
DC 
OC 


DC 


11 


12 


Ll 


L2 
L3 


Li 
L2 
L3 


16 

4 ZONE TO ACCUM 

coDoo 

CoD00 IX 1 = ZONE 

16 

4 DIGIT TO ACCUM 

CoD00 

CoD00 IX 2 = DIGIT 

ZONE GET ZONE TABLE ADDRS 

CODC2+1 SET IN CONVERSION WD 

0 GET CONVERTED CODE 

CoD01 

LHIND 

CODC3,Z BRNCH IF RIGHT HALF 

LHIND,l1 

1 

Co0C1 GO CONVERT RIGHT HLF 

coD01 PACK CONVERTED CODES 

8 

-cop02 

CODWD 

0 RESTORE INDEX REGS 

0 

0 

CONCV RETURN TO USER SX 

CONSTANTS 

0 WORD LOCATION 

9 LEFT HALF INDICATOR 

0 WORK AREA | 

0 CONVERTED LH CHARACT 

0 CONVERTED RH CHARACT 
1443 TD 1816/1053 CODE 
CONVERSION TABLES 

ZONEN NO ZONE 

ZONE} 0 20NE 

Z0Nz2 11 ZONE 

ZONE3 12 ZONE 

/0021 SPACE 

/OOFC 1 

70008 2 

/00DC 3 

SCOFO 4 

/00F4 5 

/00D00 6 

/00D4 7 

/00E4 8 

/0CEO 9 

/00C4% 0 

0 

0 

/009A S 

/009E T 

/00B2 U 


PART NO. 2191208 


PAGE 


0-904080 
0-904090 
0-904100 
0-904110 
0-904120 
0-904130 
0-904140 
0-904150 
0-904160 
0-904170 
0-9041 80 


0-904190. 


0-904200 
0-904210 
0-904220 
0-904230 
0-904240 
0-904250 
0-904260 
0-904270 
0-9042 80 
0-904290 
0-904300 
0-904310 
0-904320 
0-904330 
0-904340 
0-904350 
0-904360 


0-904370 ° 


0-9043 80 
0-904390 
0-904400 
0-904410 
0-904420 
0-904430 


-0-904440 


0-904450 
0-904460 
0-904470 
0-904480 
0-904490 
0-904500 
0-904510 
0-904520 
0-904530 
0-904540 
0-904550 
0-904560 
0-904570 
0-904580 
0-904590 
0-904600 
0-904610 
0-904620 
0-904630 
0-904640 
0-904650 
0-904660 
0-904670 
0-904680 
0-904690 
9-904700 
0-904710 
0-904720 
0-904730 
0-904740 
0-904750 


PROG ID 


PAGE 


12 


03A2-1 
12 


a) 


7 


ry 


ee) 


Pe 


a 
wwe @ 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


CORE STORAGE FUNCTION TEST 
O-9 CORE TEST 


0336 


033C 


DATE 


ooooo0o0c*oeoo0o00o°0c 8 qQoeecqooeo0°o°o°c°ecocdcoe ooo0coeoecooeoe°o0oc0ceoeo0o0ce0c°e°oce0cdc°0co0oeo0°00°d 8 


oaoOo0o0 0 


EC NO. 


00B6 
0092 
0096 
OOA6 


O1MAY66 
4154908 


ZONE2 


ZONE3 


MES12 


MES13 


MES14 


/0CB6 
1/0092 
10096 
/O00A6 
/00A2 
/0021 
0 

/OOTE 
/OO0O5A 
/OO05E 
/0072 
10076 
10052 
0056 
10066 


10062 | 


0 

/O03E 
/OOIA 
/OOIE 
4/0032 
4/0036 
/0012 
40016 
4/0026 
0022 
/0086 
40000 


10 

42435 
12426 
42918 
/OOOA 
4/0013 
13829 
41400 
4/0900 


13326. 


12935 
/FFFF 


11 

2729 
12637 
4/0035 
12534 
/OOOA 
/0013 
43829 
41400 
0900 
13326 
12935 


/EFFF 


3 

13529 
2926 
42900 
/FFFF 
RSSTB 


UNnN<extce 


PACE 


7AOVvOoOae? BerAGqW 


— Icon nnoono p 


O ERROR 


TERM 


WO CT 


TERM 
WD CT 
RO 


TERM 


- PART NO. 
PAGE 


0-904760 
0-904770 
0-904780 
0-904790 
0-90480C 
0-904810 
0-904820 
0-904830 
0-904240 
0-904850 


0-90486C. 


0-904876 
0-9048 80 
0-904890 
0-904¢00 
0-904910 
0-904920 
09-9049 30 
0-904940 
0-904950 
0-904960 
0-904970 
0-9049 80 
0-904990 
0-905000 
0-905010 
0-9050 20 
0-905030 


0-905040 


0-$05050 


- 0-905060 


0-905070 
0-9305080 


0-965090 


0-905100 
0-905110 
0-905120 
0-90513C 
0-905140 
0-9C05150 
0-905160 
0-905170 
0-905180 
0-S05190 
0-905200 
0-905210 
0-905220 
0-905230 
0-905240 
0-905250 
0-905260 
0-905270 
0-905280 
0-905299 
0-905300 
0-905310 
0-905320 
0-905330 
0-905340 
0-905350 
0-905360 
0-905370 
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PAGE 


2191208 


12A 


03A2-1 
12A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO~ 2191208 © U 0 IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM —— PART NO. 2191208 
| _ PAGE 13 9 | _ PAGE 13A 
CORE STORAGE FUNCTION TEST | “ | | | CORE STORAGE FUNCTION TEST 
0-9 CORE: TEST | | : 3 | 0-9 CORE TEST 
| | | O 9g | | | 
CROSS REFERENCE LISTING : - RSLOP 0238 OL TF yO018Cy01994,0 LAF, OLDS sy CLE 4s 024550247 50250,0252¢ | 
| | {\ : 0254 : » os 
SYMBOL VALUE REFERENCES | | J RSNPP 0232 012F 
COOCV 0288 0293,02E6 | RSPER O1F6 01C4 
Co0cl O2BF 0208 rie - RSPES NLED 0200 
CODC2 N2D01 02D0 = . RSPPC 0231 0131,01E6 
CN0C3 02DC 0206 RSQO1 O17F O17A 
CODC4 O2E0 0289,02BA,028B : oy hat RSQ02 O18C 0187 
CODOwWD O2E8 028E,0295, 02BF,02DF - RSQ03 0199 0194 
CODO00 QO2EA 02C6-02C7,02CB,02CC : RSQ04 O1LA8 01A3 
coool 02EB 0203,02D0C = RSQO05 0105 0100 
Co902 O2EC O2DE : | = RSQ06 O1E4 010F 
IOARA O2A0D 0282,0297,02A0202A2,02B6 : RSRBS 0226 0141,0204,024D,0258 
LHIND 02E9 028D,02C1,0205,02D8 | - RSRSI OLFE O1FA 
LOG 0256 025€,0274,0276,0289 ~ RSRSX OLFA 01€9 
LOGO] 0257 | RSROL] 0175 O17TE,OLES 
LOGO2 0261 0269,026B = RSRO2 0181 0188 
L G03 0268 0262 - RSRO3 OLBE 9198 
LGGO4 926A 0265 | RSROG 0190 O1A7,0LAD 
LOGOS 026C 0267 - RSROS 01C6 0104 
LOGO6 0272 0257,0291 - RSRO6 0107 O1E3 
MES12 0310 | ; | RSR18 0168 0140 
MES13 0329 | = RSSBT 0208 0207 
MES14 0336 , ? = RSSIC O1FS O1FF 
PRSN 02BC 026D , | RSSPT 0180 01861 
PRSNS O2AE 0261,0271 : : - m= RSSTA O12F 0172, 01F0, 01FC,0221 
PRWRT 0282 0260,026C | ‘ a | RSSTB  O12C 0338 ; 
, RSAAN 9172 012C a | RST18 O16C | 01°6 
2SALT 0237 021F | | : 4 RSVBB 0198 O1AE 
RSARB N22A 0203,0218 | | ' = RSWAT 9233 0215 
RSBAB 0228 | RSWSC 0220 
RSBIL OLAF 01AB | ee + RSZRO O16E O14E 
RSBSB 0229 CLED,OLEEs, 01F 2,0 205,0208¥0200C.0226,024E, 025A i TWRTR 0278 025C,0280 
RSBTB O1FC : | TWRTO O2AA 0281. 
RS$B810 022B = TWRT1 O02AB 0290 
RSB1l 022C 0206 . i TWROL 9281 0270 
RSB12 022D 020D . | : | TWRO2 028C 028B,02A9 
RSB813 N22E  024F | : < = TWRO3 02A6 O29F 
RSB14 O22F OLEF | | = TWSNS 02B4 0144,02TA,0284,0299 
RSB15 0230 O1LF3 . | TWWRT 02B6 0147,0283,0298 
RSCON 0234 0214 - a WAITA O174 014A,0164 
RSCSE 0249 0230 . 7 is WAITS O1EC 014C 
RSDMS O14€ O13€ a | WAITO O16F 0149 
RSO18 16D 0143 | ss - WROSW 02AC 0279,0290»02A3,02AT7 
—RSEOPR 0202 0170101895 0196,01A5,01D02,01E1,0209, 021002170210 mas XIOSN 0299 029C 
RSERW 021C 0216 | 7 XIOWR 0298 O2A5 
RSFIN N1F6 : | 7 : - ~ ZONE O2ZED O2CE 
RSHOE 0212 020E : ba ZONEN O2Fl O2ED 
RSHOP O1FB O1F4 ZONE1 Q?FC O2EE 
RSILC O21F | : 5, ZONE2 0307 O2EF 
RSKBA 0154 0153 | | ms ZONE3 0311 O2F0 
RSKBC 0153 O16A | 
RSKBD 9165 0158 | es . 
RSKXA 0235 ' . - 
RSKXB 0236 | | 
RSLAA 0184 013550151, 0154,015C.0165,0168,0249 5 
RSLAB  O1LA3 O15A i 
RSLAC G1B5 015€s0176,0178,0182,0184,018E, 01 8F 0191 ,0193 ,019E, 
01A0,01C7,N1CA,01CC,O1ICE, 0108, O1DAy O1DC , 021230239, + 
023F»0243,024B a 
RSLAD 9136 0175,01C6 | 
RSLAE O1B7 0137,0181,0186,01BD ce 5 
RSL AF 0138 019C,019D,01A2,01A 8, 01AA2 01CB,0109,01DE 
RSLAG O1B9 0162,023B | | . 
RSLAH OLBA 021820241 en ry 
RSLAI O1BB 0198 | | oo = 
RSLAL 018C 0133 | 
RSLAQ 0182 0160 | la 9 
DATE OLMAY66 PROG ID 03A2-1 | Cc 4 DATE OLMAY66 | 3 ; PROG ID 03A2-1 
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164 MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEN PART NO. 2191208 . J 18M MAINTENANCE OIAGNOSTIC PROGRAM FOR THE 1130:SYSTEM PART NO. 2191206. es | 
| - | a PAGE 4 7 | | | : PAGE 14A Le 
| . - - 5 . 5 7 
CORE STORAGE FUNCTION TEST. " CORE STORAGE FUNCTION TEST _ 
LOW CORE TEST LOW CORE TEST 
v) } y 
* LcT00020 0839 00 D4000AAB STO LL TWSNS#2 PRO LCTOO700 ne ee 
& LCT00030 eo = 0838 0 COFO LD RSQAV X10 WRITE 1600 LCTO0710 >): 
* LCTO00040 ie 083C 00 D4000AAD STO L TWWRTO) PRO2 Lcroo720 i 
% LCT00050 * a LCT00730 | 
* MEMORY TEST-LOW CORE LCTO00060 rs ae * FIRST ROUTINE-READ + WRITE IN MEMORY LCT00740 +) 
* | LCTOOO70 ie * | LCcT00750 2 
* LCTOO0080 083— 0 CODE RSABI LO RSFAA INITIALIZE PROGRAM tcTc0760 
ABS | tcT00090 - 083F 0 ONDE sto  RSFAB PASS COUNTER LCTOOTTO Be 
028C | | ORG 2048 - LCTOO100 is 0840 0 6204 RSABH LOX X2 4 : ADDRESSING PASSES LcT00780 one 
On00 OO. CA21 RSOKR LODO RSAAM LCT00110 0841 00 65800826 RSABB LOX IL RSQAC - | LCT00790 mo 
0801 OO 9C000000 $T0 tL O LCT00120 4 0843 0 69€4 RSABC STX 1 RSQAE tcToos00 oe 
0803 0 CBLE RSUKS LOD —.: RSAAM LCT00130 7 0844 0 COE3 LO RSQAE LCTO00810 a 
0804 00 3C000004 | STO L 4 | | LCT00140 — 0845 00 04800829 STO I RSQAE LCT00820 oe: 
0806 0 C013 LO RSAAE CLEAR Q REGISTER LCT00150 | 7 = 0847 0 F003 EOR RSAAH LCT00830 es 
0807 0 1890 Sat 16 LCTN0160 = 0848 00 4C18084C BSC L RSABDet— — oo. # LCT00840 ne ae 
* -LCTOO1 70 084A 0 7101 MDX Xl 1  INCR TO NEXT ADDRESS LcTo0sso0 ee 
* MACHINE DETERMINATION ROUTINE LCT00180 sr 0848 0 TOF? MOX —RSABC | tcTooseo a. 
| * LCT00190 . 084C 00 65800826 RSABD LOX IL RSQAC LCToos70— te he 
0808 O Coll LO RSAAE LCTO00200 O84E 0 6909 RSABE STX 1 RSQAE LCT00880 One Oe 
0809 00 94000003 STO t 3 LCT00210 = O84F 00 C4800828 LD =I RSQAE LCT00890 ao. oe 
080B 00 4700FFFF LOX L3 /FFFF LCT00220 = 0851 0 FO00D6 EOR RSQAE LCT00900 BS aeae 
080D 00 C4000003 to Lt 3 LCT00230 0852 00 4C180861 BSC L RSABFe+- ERROR 1 DETECTED LCT00910 eee 
O80F 00 4C200813. BSC L RSAABe2 LCT00240 - 0854 00 04000808 STC & RSQAN STORE ACCUM FOR ERROR ROU LCT00920 ye © 
0811 0 coo? LD RSAAD LCT00250 - 0856 00 0C000824 XIO LL  RSQAF. | ts -  L€T00930 shee 
O812 0 709% MOX xX 1 LCT00260 0858 00 C400082A LD L-L RSQAL LCT00940 ee 
0813 0 C004 RSAAB LO RSAAC LCT00270 - 085A 00 £4000948 AND L_ RSRAI LCT00950 ort 
0814 0 0007 | — $To RSAAK LcT00260 ° O&85C 00 4C20G84E BSC L RSEABE2Z LCT00960 oe 
0815 00 67000900 Lox £3 £0000 CLEAR XR 3 LCT90290 035E 00 44000A32 BSI t  RSODD | | LCTO09TO. oe 
0817 0 7015 7 MDX RSAGA | LCT00300 4 0860 0. FFFE oe .. JFFFE ERROR 1 CONSTANT ~ tcCTo00980. op 
ae * LCTC0310 * 0863 0 oO8sc2 RSABF XIU —s—s RSQAF READ BIT SWITCHES | LCT00990 yep 
* STORAGE AREAS FUR INITIALIZATIONS LCT00320 | 0862 00 C400082A ‘LDL RSQAL | «LC TO1L000 ca 
| ee * | | LCT00330 aa 0864 00 £4000948 AND L_ RSRAL. ISOLATE BIT SW1h | ~~ &C€T01010 | oy 
0818 0 0001 . RSAAC OC 1 1130 CONSTANT LCT00340 : 0866 00 4C20084E BSC. L RSABEe2Z IF BIT SW 11 ON-REPEAT AD LCT01020 — Ges 
0819 0 FFFE RSAAD OC -2 1800 CONSTANT LCT00350 0868 0 COBF LO = =——- RSQAE ‘LCT01030 © any 
081A 0 0000 RSAAE OC 0 CONSTANT ZERO | LCT00360 = 0869 0 FOB1 EOR -RSAAH LCT01040 >) 
0818 0 O7FD RSAAH OC 2045 HIGHEST ADR TO TEST LCT00370 7 O86A 00 4C18036E BSC L RSABGet | | i 3 LCTO1050. - 
081C 0 0000 RSAAK OC 0 MACHINE TYPE LCT00380 086C 0 7101 MOX X11 : INCR TO NEXT ADORESS ~tCT01060° wn 
O81D 9 0003. -RSFAA OC 3 NUMBER OF PROGRAM PA SES _ LCT00390 = 086D 0 70£0 MDX ~~ RSABE LCTOLOTO — 2 
I81E 0 1000 RSFAB OC 0 PROGRAM PASS BUFFER LCTO00400 O86€ 0. 72FF RSABG MDX X2 -1 COUNT PASSES. LcT01080 ae. 
so +. LCT0N416 © O86F 0 7001 MDX RSABB 5 a 7 ‘LCTO1090 | 
e002 L©T20420 7 0870 00 0C000824 X10 L  RSQAF REPEAT ROUTINE IF Swi3 ON. LCTO1100 ee 
* STORAGE AREAS PART 1 LCT00430 ; 0872 00 C400082A LD = =t-) = RSQAL | ~ LCTO1110 ain @ 
| * 3 3 - LCT00440 0874 00 £4000946 AND Lt RSRAG <2 —. &€T01120 ale 
O81F 0 7003 RSAAL MOX X 3 LCT00450 eS 0876 00 4C200840 BSC L RSABHeZ REPEAT ADDRESSING. RO TINE .LCTO1L30 ee 
0820 0002 BSS E 2 | LCT00460 : x ; | 7 | LCT01140. of 
0822 00 4C000803 RSAAM BSC L_ RSDKS BOOTSTRAP BRANCH INS LCT00470 | * SECOND ROUTINE 2 | . - £€T01150_— | 
0824 0 182A RSQAF OC RSQAL READ BIT SWITCH IOCC LCT00480 re os * BIT ISOLATION: TEST-BIT BY BIT-ADRESS BY ADDRESS LCTO1160_ +y 
0825 0. %3A40 RSQAO OC /3A40 SECOND HALF IOCC-113 LCT00490 a a * | _ a LCTO1170_— ae 
0826 0 9009. RSQAC OC 9 = LOWEST ADDRESS TO TEST LCTO00500 0878 0 6304 RSABR LOX X3 4 BIT ISOLATION PASSES LCTO1180 : 
0827 0 9901 RSQAD DC RSCCA © INTERRUPT LEVEL ZERO VECT LCTOO510 - 0879 00 C4000826 RSABP LO Lt = RSQAC -. s La ; — £€T01190 “ 
0828 0 0000 RSQAE OC o | WORK AREA LCTO00520 . 0878 0 NOOSA. RSABN STO RSQAH | LCT01200 | 
0829 9 0240. — RSQAP DC 10240 SECOND HALF 10CC-180 LCT00530 087C 00 65800806 LOx I1 RSQAH LCTO1210 . A 
082A 0 09090 RSQAL OC 4) BIT SWITCH BUFFER AREA i.CT00540 ~ O87E 0 C058 LO RSQAI ~ L€T01220 ‘y 
0828 0 NFO3 RSQAU OC /0FO3 2ND HALF IOCC-1800 C W LCT00550 O87F 00 048008D6 STO I RSQAH ~LCT01230 ae 
082C O 90902 RSQAV DC —~ /0902 2ND HALF IN2C-1800 TYPE LCT00560 9881 00 C48008D6 LD I RSQAH LCT01240 
* 7 7 | ee LCT00570 = 0883 00 %C180892 BSC L RSABJe+- ERRCR 2 DETECTED LCT01250 vy 
* INITIALIZE MASKS AND INTERRUPTS TO LEVEL ZERO LCT00580 ‘s 0885 00 44000A32 BSI L- RSDDD : | LCT01260 ud 
* 1300 ONLY ~  tCT00590 0887 0 FFFOD OC /FFFO. .. ERROR 2 CONSTANT LCTO01261 PU 
* | LCTO0600 4 i 0888 00 N49008D3 STO L  RSQAN STORE ACC FOR ERROR OUTEI LCTO1270° ae 
0820 0 COFI RSABA LD RSAAL STORE BUUTSTRAP BRAN H AT LCTO0610 088A 00 0C000824 XIO Lt RSQAF  LCT01280 oe 
-082£ OO 94000000 sto L O LOCATION ZERO i LCT006290 088C 00.C400082A LD &t RSQAL LCT01290 : 
0830 0 COEB to RSAAK | LCT00630 = O88E 00 E4000948 ANO L_ RSRAI . | LCTO1300 +) 
0831 00 4€04083E BSC LL RSABIsE IF 1130-GO TO FIRST ROUTI LCT00640 ; 0390 00 4C20087C BSC LL RSABN4+1,2 : | LCTO1310 | 3 
0833 0 COFS to RSQAP | CHANGE SECOND HALF I CC LCTO0650 0892 00 0C000824 RSABJ XIO CL RSQAF IF BIT SW 11 ON REPE T AD LCT01330 ee 
. 0834 0 DOFO sto ~ RSQAO FOR 1800 READ BIT Sw LCT00660 ~ 089% 00 C4000382A - LO  L. RSOAL | LCT0i340_ oy 
0835 0 COF1 , - Lo RSQAD | INTERRUPT LEVEL ERRO VECT LETO06TO : 0896 09 £4000948 AND L_ RSRAL. | LCT01350 aa 
0836 00 04000008 sto t 8 LCT00680 0898 90 4C20087C. BSC L RSABN41 52 LCT01360. aes 
0838 O COF2. LO RSQAU DSW 1800 LCT00690 yy os 089A 0 C030 LO RSQAJ LCTO1370 y 
DATE OIMAY66 PRONG ID 03A2-1 ~ a DATE OLMAY66 PROG ID 0342-1 a) 
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| IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191208 ~ = IBM MAINTENANCE OIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191208 
: : | PAGE 7 15 : | | | = PAGE 1SA 
CORE STURAGE FUNCTION TEST | Y 0 CORE STMRAGE FUNCTION TEST 
LOw CNRc TEST — LOW CORE TEST 
| Oo 3 | | 
089B 0 4593D STO RSQAK LCT01380 O8F4 00 C4000826 LD tL RSQAC LCTG2060 
Oos9C 0 CN3C RSABL LD RSQAK tCT01390 i ae OBF6 O OO04A STO RSRAA . LCTO2Z070 
| 089D 00 94809306 RSABQ STO I RSQAH LCTO1400 me O8F7 0 C049 RSACB LD RSRAA LCTO2080 
N89F 00 668008N9 {Dx 12 RSQAK LCT014190 O8F8 O 1806 SRA 6 LCTO2090 
! N8Al 00 C480048D6 LO 1 RSQAH LCT01420 5 O8F9 0 19948 STO RSRAB LCT02100 
O8A3 9 FO35 EOR RSQAK | | LCT01430 , O8BFA O- 1802 SRA 2 LCTO2110 
. O8A4 00 4C180883 BSC L RSABKyt- ERROR 3 DETECTED LCT01440 O8FE O 8046 A RSRAB LCTO2120 
O8BA6 OC N4N0N048D8 STO kt RSQAN LCT01450 - O8FC 00 4€040901 BSC L_ RSACA,ZE LCTO21430 
. 08A8 NO 0C000824% X10 L RSQAF LCTO1460 = O8FE OO 6GE800941 STX I2 RSRAA LCTO2140 
OBAA 00 C400082A LD L RSQAL LCT01470 0900 0 7002 MOX RSACD LCTO2150 
OBAC 00 £4000948 AND L_~ RSRAY LCT01480 ze 0901 00 6F800941 RSACA STX I13 RSRAA LC f02160 
| O8AE 00 4C€20989C BSC L RSABL»Z LCT01490 0903 0 C03D RSACD LD RSRAA . LCTO2170 
O8B0 00 44000A32 RSI bt RSODD LCT01500 0904 00 F4000818 EOR L RSAAH TEST FOR MEMORY END LCT02180 
088? O FFFB DC JFFFB ERROR 3 CONSTANT LCT¥01510 = 0906 00 4C180908 BSC LL RSAOB,+t+— LCTO2190 
0883 00 0C000824% RSABK Xft) L RSOQAF LCTO1520 : 0908 00 74010941 MDX L RSRAA,1L ADR=ADR1 LCTO2200 
) 0835 00 C4&00082A LOD L RSQAL LCTO1530 090A 0 TOEC MDX RSACB LCTO2210 
| O8B7 OO F4000948 AND L_~ RSRAI ISOLATE BIT 11 LCT01540 = * LCTO2220 
i OFB9 00 4020089C BSC L RSABL 52 IF BIT SW 11 ON-REPE T BI LCTO1LS50 ° * WORST CASE TEST LOAD AND STORE’ THEN !CT02230 
: CG&B8 90 CO1D LD RSQAK LCTO1560 * COMPLEMENT AND REPEAT LCTO2240 
| O8BC O 4894 BSC E IF ODD-BIT 15 IS REA HED LCTO1570 a * .CT02250 
| 08380 90 70993 MDX RSABM BRANCH TO INCRE ADR ROUTI LCTOL580 0908 0N 65800826 RSACB LDX I1 RSQAC LOAD STARTING ADR IN XR1 LCTO2260 
OB88E O 1801 SRA 1 INCK=MENT BIT LCTO1590 090D 0 6933 RSACL STX 1 RSRAA LCTO2270 
7 O88F 0 19919 S10 RSQAK POSITION BY ONE LCTO1600 = O90F O c03B RSACH LD RSRAJ INITIALIZE COMPLEMENT CNTR LCTO2280 
08CO 0 79DC MD X RS ABQ LCT0O1610 O90F O O0C3B STO RSRAK LCTO2290 
QO8C1l 0 CO14 RSABM LD RSQAH TEST FOR MEMORY END LCTO1620 0910 00 C%800941 RSACG LD I RSRAA LCTO02300 
! O8C2 ON F4000813 EOR bt RSAAH LCT01630 ise 0912 09 4C€200916 BSC tL RSACE,2Z LCT02310 
O8C4 00 4C€1808C9 BSC L  RSABO,+- LCTO1640 0914 0 FO2E EOR RSRAC LCTO02320 
| O8C6 0 COOF LD RSQAH INCREMENT TO TEST NE T LCT01650 09:5 0 7010 MDX RSACF LCT062330 
| O8C7 O 8912 A RSQAM MEMORY LOCATION LCTO1660 - 0916 QO FO2C RSACE EOR RSRAC | LCTO02340 
O8C8 0 70BR2 MDX RSABN LCT01670 0917 00 4€180926 BSC L RSACF,+- ERROR 4 DECTECTED LCTO02356 
| O8C9 0 T73FF RSABO MOGX X3 -1l COUNT PASSES LCTO1680 0919 00 D40008DB STO tt RSQAN tCT02360 
O8CA O 7ODAE MDX RSABP | LCT0O1690 a 091B 00 0£000824 XIO0 bL RSQAF tcCt02370 
| 08C38 00 9C000824 X10 LL RSQAF tC€T™01700 091D 00 C4&000824 LD -t RSQAL LCT02380 
O8CD 00 C400082A LD ££ RSQAL LCTO1710 O91F O00 £E4000948 AND L_~ RSRAI LCT02390 
O8CF O00 £4000946 AND L- RSRAG LCT01720 * 0921 00 4C20090E BSC L RSACH,Z LCTO2400 
O08D1 00 4€200878 BSC L RSABRs2Z REPEAT BIT ISOLATION LCT01730 0923 00 44000432 BSI L RSDOD LCT02410 
0803 0 7908 MDX RSACJ LCTO1740 0925 0 FFFT DC /FFF7 ERROR 4 CONSTANT LCTO02420 
* LCT0O1750 ar 0926 00 D4800941 RSACF STO I RSRAA LCTO02430 
* STOPAGE AREAS PART 2 LCTO1760 . 0928 00 74FE0943 MDX L RSRAKy-2 LCTO2440 
* LCT01770 092A 0 TOES MDX RSACG BRANCH FOR COMPLEMEM PAS LCT02450 
0894 0 0004 RSQAQ DOC 4 WORST CASE PASSES LCTO1780 ' a 092B 00 9C000824 XIO LbL RSQAF tLCT02460 
0805 0 91900 RSQAR DC 0 WORST CASE PASS COUN LCT017990 092D 00 C400082A LD L RSQAL LCTO2470 
9806 0 90900 RSQAH DC 0 WORK AREA-ADR LCT01800 O092F O £018 AND RSRAT ISOLATE BIT SW ll. LCTO2480 
0807 0 99900 RSQAI DC 0 CONST ZERO LCTO1810 5 0930 00 4C20090E BSC L RSACH ,Z IF BIT SW Ll ON-REPE T AD LCTO2490 
0808 9 8900 RSQAJ OC 4/8000 BIT ZERO CONSTANT LCT01820 . 0932 0 COOE LD RSRAA LCT02500 
0809 0 9900 RSQEK DC 0 WORK AREA-BIT LCT01830 0933 00 £4000818B FOR kL RSAAH TEST FOR MEMORY END LCTO2510 
O8DA 0 OOOD1 RSQAM DC 1 CONST 1 LCT0O1840 ' 0935 00 4C1808E2. BSC LL RSACK,t+— LCTO02520 
0898 0 0900 RSQAN OC 0 STORAGE FOR ACCUM LCT01850 ‘ 0937 0 7101 MDX Xl 1 MEM ADR=ADR41 LtCT02530 
* LCTO1860 0938 O 70N4 MOX RSACL LCTO2540 
* ESTABLISH WORSf CASE PATTERN LCT01870 = 0939 90 9C000824 RSACW XIO L RSQAF LCT02550 
* LCT01880 . 093B 00 C400082A LD tL RSQAL LCT™02560 
o8NC 00 6450009090 RSACJ LDX L2 /0000 LCTO1890 093D 0 €008 AND RSRAG LOOP ROUTINE IF SW 1 ON LCTO02570 
O8DE O00 45700FFFF LOX L3 /FFFF LCTO01900 a O93E 00 4C20080C BSC L RSACJe2 t_cC¥02580 
O8EO O COF3 Ln RSQAQ INITIALIZE WORST CAS LCTO1910 Y 0940 O 7008 MDX RSACV LCT02590 
O8E1 0 ODNF3 STC RSQaAR PASS COUNTER LCT01920 * LCTO2600 
O8E2 O00 74FFOS8D5 RSACK MDX L RSQAR,-1 COUNT WORST CASE PAS ES tcCT01930 “” * STORAGE AREAS PART 3 LC1T02610 
O8F4 O 7901 MDX RSACX LCT01940 . * LCTO2620 
O8E5 O 7053 MDX RSACW LCT01950 0941 0 9000 RSRAA DC 9 WORK AREA-ADDRESS LCTO02630 - 
O8E6 QO AAEF RSACX STX 2 RSQAH COMPLEMENT XR2 LCT01960 = 0942 0 v0000 RSRAB DC 0 BUFFER AREA-WORST CASE PA LCT02640 
O8E—E7 O COFFE LD RSQAH LCT01970 ° 0943 0 FFFF RSRAC OC /FFFF LCT02650 
O8E8 00 F4090943 FOR L RSRAC tcT01980 0944 0 90000 RSRAE DC 0 WORK AREA-ADDRESS i. CTO02660 
O8EA O NOFB STO RSQAH LCTO1990 ae 0945 0 0000 RSRAF DC 0 CONST ZERO LCTO2670 
O8FB 00 46800806 LDX 12 RSQAH LCTO2000 ; 0946 0 0004 RSRAG DOC /0004 BIT 13 ISOLATION CONST LCTO02680 
O8EC QO 68€E8 STX 3 RSQAH COMPLEMENT XR3 LCTO2010 0947 0 0002 RSRAH DC 0002 BIT 14 ISOLATION CON T LCTO02690 
O8EE O COET LD RSQAH LCTO2020 a om 0948 0 0010 RSRAI DC 4/0010 BIT 11 ISOLATION CONST LCTO2700 
O8EF O00 F4000943 EOR L RSRAC LCTO02030 0949 G0 0020 RSRAX DC /0020 BIT 10 ISOLATION CON TANT LCTO.710 
C8FlL 09 DOES | STO RSQAH LCTO02040 0944 0 9003 RSRAJ DC 3 LCTO2720 
O8F2 00 67800806 LOX 13 RSQAH LCTO02050 - 74 094B 0 90000 RSRAK DOC 0 COMPLEMENT PASS COUN ER LCTO2730 
DATE OIMAY66 PROG ID a > DATE OLMAY66 PROG ID 03A2-1 
EC NO. 415490B PAGE ° EC NO. 4154908 PAGE 15A 
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CORE STORAGE FUNCTION TEST 
LOW CORE TEST 


094C 
O94E 
0959 


0952 


0955 
0956 


0957 


0959 
0958 
095C 
O95E 
095F 
0960 
0962 
0953 
0955 
0967 
0968 
O96A 


096C . 


O96E 


- 0970 


0987. 


0989 
098B 
0980 
O9FE 
O98F 
0990 
0991 
0993 

0994 


0996 
0998 


G99A 
099C 
O99E 
“O9A0 
O9A2 
O9AS 
O09A6 
O9AT 
09A9 
09AB 
—O9AC 


DATE 


0953 — 


00 


00 


EC NOe 


C4900081C 
4C€080952 
640009C1 


6204 — 
C4000326 
DOEE 
n008 . 
C4000A27 
94000A25 
COE? 
04800944 
2C41 
0362 
65800944 


> COE2 


04500944 
C4800944 
FODB 

4C180977 
9400038 
9C000824 


~.€400082A8 | 
- F4000948 
40200958 


44000A32 
FFEF | 
NC00082-¢ 
C400082A 
EOCC 


-4C020095B 


cocs5 


340003DA . 


DOC2 
DODC 


F40008186 | 


4C20095B 


C4000A26 . 


N4000A25 


C4000326 | 


DNB6 
9901 
2C40 
0362 
65800944 
coBl 
4800944 
64800944 
4C1809AT 


94000308 > 


90000824 
C400082A 
F4000948 
4C2009SF 
44000432 
FFDF 


“)C000824 


C400082A 


EO9C 
4C20098F 


OITMAY66 
4154908 


RSACQ DC 
RSACR DC 
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oe - hee ee - 
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* STNRAGE PROTECTION TEST ROUTINES 


* 
RSACV LO 
BSC 


LOX 
& 


L 
L 
U 


RSAAK 
RSACU,? 
RSADA 


NOT 1806 BRANCH TO €£ D 


* WRITE ZEROS ON PROTECTED AREA OF ONES 


* 
RSACU LOX 
RSACS LO 
STO 
STO 
LO 
STG 
RSACN LD 


STO. 


— oC 

RSACO OC 
LOX 
LO 
STO 
LO 
EOR 
BSC 
STO 


X10 | 


Lo 
ANO 
BSC 


BSI. 


DC 


RSACM XIO 


LO 
AND 
BSC 
LO 
A 
STO 
STO 
- EOR 
. BSC 
t 


_® UNPROTECT 


x 
LD 
STO 
LO 
. $T0 
STO 


LOX 
LD 

$To 
LO 


BSC 


a) 9) 
X10 
LO 
AND 
BSC 


«BST. 


| OC. 

RSACP XIO 
LD 

AND 
BSC 


X2 
L 


Tl 


Gnd bond 


SFr: rE rerrreer 


er 


L 
L 
L 


eng 
rr" 


rf rer errr re re re me om 


4 


~RSQAC 


RSRAE 
RSACO 


~KRSSAH 


RS SAF 
RSRAC 
RSRAE 
/2C41 
RPSEND?2 
RSRAE 
RSRAF 
RSRAE 
RSRAE | 
RSRAC | 
RSACM,+—- 
RSQAN 


— RSQAF 


RSQAL 
RSRAI 
RSACNeZ 
RSDDO 
/FFEF 
RSQAF 
RSQAL 
RSRAI © 
RSACNee 
RSRAE 
RSQAM 
RSRAE 
RSACO 
RS AAH 
RSACN,Z 


RSSAG 
RSSAF 
RSQAC 
RSRAE 
RSAUR 
42C40 
RSEND42 
RSRAE 
RSRAF 
RSRAE 
RSRAE 
RSACP,4— 
RSQAN 


—RSQAF 


RSQAL 


RSRAT 


RSACQ,2Z 
RSDDD 
JFEDF 
RSQAF 
RSQAL 
RSRAI 


RSACQ,Z | 


STORAGE PROTECT PASS §S 


INITIALIZE STS ADDRESS 
TELL INTERRUPT ROUTI E TO 
DISREGARD SP ERROR 
ACC=/FFFF. 


ADD SP BITS 


ACCUN=0 


-$TO SHOULD NOT OCCUR @ 


ERROR 5S DECTECTED 


FRROR S CONSTANT 


ISOLATE BIT SW 11 


IF BIT SW 11 ON-REPE T AD 


RETURN WITH ADR=ADR+ 


AND CLEAR MEMORY OF ONES 


SERVICE STORAGE PROT CT 


INITIALIZE STS ADDRE S 
CLEAR SP BITS 


ACC=/0000 


ERROR 6 DECTECTED 


ERROR 6 CONSTANT 
REPEAT LOOP IF SW 11 ON 


REPEAT ADDRESS 


~ PART NG. 2191208 | 


PAGE 


iCTU2740 
LC1T02750 
LctTo02760 


LCTO2T7T70 


LCTO2780 
LCTO2790 
.cT02800 
LCTN28190 
LCTO2820 
LCT02830 
LCTO02840 
LCTO2850 
LCTO286C 
LCT02870 
LCTO2880 
LCT02890 
LCTO2900 
LCTO2910 
LcTt02920 
LCTO2930 
LCTO02940 
LTTO2950 
LCTO2960 
LCTO2970 
LcCT02980 
tcT02990 
tLcCTO03000 
LCTO3010 


LCT03020 


LCT03030 
LCTO3040 
LCTO3050 
LCTO3060 


LCTO03070 
LCTO3080 


LCT03090 
LCT03100 
LCTG3110 
LCT03120 
LCT03130 
LCT03140 
LCT03150 
LCT03160 
LCT03170 
LCT03180 
LCT03190 
LCT03200 


LcT03210 
LCT03220. 


LCT03230 
LCT03240 


- LCTO3250 


LCTO03260 
LCTO3270 
LCTO3280 
LCT03290 
LC©TO3300 
LCT03310 
LCTO03320 
LCT03330 
LCTO3340 
LCT03350 
LCTO03360 
LCT03370 
LCT03380 
.cCT03390 
tCT03400 
LCT03410 


PROG ID 


PAGE 


16 


03A2-1 
16 


(2 


4-3 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


CORE STORAGE FUNCTION TEST 
LOW CORE TEST 


O9AF 
O9AF 
0981 
0982 
0983 
0985 
0987 
O9BA 
0989 
O9BB 
098D 
O98F 


o9cl 
09C3 
09C4 
C9C6 
09C8 
O9CA 
oscc 
09CD 


-O9CF 


096: 
0902 


0903 
09D4 
0905 


~09N6 


0908 
O9DA 
090C 
0900 
OSCE 
09EO 
O9El 


O9E2 


O9E4 
O9E5 
O9ET 
O09E9 
O9EB 


O9ED | 
O9EF 


O9F 1 
O9F2 
O09F3 


O9F4 


O9F5S 
O9FT 


_. O9F9 
 O9FB 
O9FD | 


O9FF 
0A00 
OAOl 
0A03 
0A0S 
0A06 
OAOT 
OAOR 
OAOA 
OAOC 
OAOD 


DATE 


00 
0 
0 
00 
00 
0 
0 
00 
00 
00 
00 


EC NO} 


CO95 
B400048DA 
092 
20D 
F4000818 
4C20098F 
T2FF 
709A 
0C000824 
C400082A 


‘E4000946 


4€ 200952 


T4FFOSILE 
7008 

9C000824 
C400052A 
£4000947 
4C20083€ 
30FF 

64000803 
64000840 


co00 
NO4c 
2347 
0340 
DOSE 
4C4009D8 
9C000324 
C400082A 
E052 
FO52 
4C180A48 
C043 
E046 
4C1L809FT 


C040 


4C1009F 3 
NC000824 
C400082A 
E4000949 


4C200A0D 
44000448. 


0825 


7004 


C030 


/ £033. 


4€980901 
0C000824 
C400082A 
E4000949 
4C 200400 


C024 


FO28 
401 80A06 
44000A4B 


0B31 


COLD 
E022 
4C180A00 
44000448 
0338 
0C000324 


OLMAY66 
4154908 


RSCCA DOC 


LO 
A 
STO 
sTO 
FOR 
BSC 
MOX 
MOX 
x10 
LD 
AND 
BSC 
2 
* COMMON 
& 
RSADA MDX 
MDX 
X10 
LD 
AND 
BSC 
RSEXI WAIT 
LOX 
RSCCQ LOX 
% 


xe 


rere 


RSRAE 
RSQAM 
RSRAE 
RSACR 
RSAAH 
RSACQ,Z 
-1 
RSACS 
RSQAF 
RSQAL 
RSRAG 
RSACU,Z 


PROGRAM END 


L 


L 
t 
L 
L 
L 
L 


* INTERRUPT 


e 


STO 
~$Ts 
X10 
STO 


BOSC L 


NEXT xXIO 
LD 

_ AND 

EOR 

BSC 

to 


L 


tL 


ANC 


BSC 
LD 
BSC 
X10 
LD 
AND 
BSC 
BSI 
DC 
MDX 
RSCCG LD 
EOR 
BSC 
RSCCB X10 
LO 
AND 
BSC 
LD 
AND 
BSC 
BSI 
OC 
RSCCC LO 
AND 
BSC 
BSI 
. oC 
RSCCD XIO 


re rrrer 


alll oul oul elt) 


re 


RSFAB,-1 
RSCCQ 
RSQAF 
RSQAL 
RSRAH 
RSABI,Z 
-1 

RSOKS 


~ RSABH 


LEVEL ERROR 


0 
RSSAA 
RSCCE 


RSSAC 
 RSSAD 


NEXT 
RSQAF 
RSQAL 
RSSAO 
RSSAP 
RSODK g +- 
RSSAD 
RSSAE 


RSCCB8,+¢- | 


RSSAF 
RSCCG»a- 
RSQAF. 
RSQAL 
RSRAX | 
RSCCO,2Z 
LOG. | 
MES17 


RSCCB 
~RSSAD — 


RSSAE 


RSCCA,t- 


RS QAF 


— RSQAL 


RSRAX 
RSCCD,Z 
RSSAD 
RSSAI 
RSCCC,4- 
LOG 
MES18 
RSSAD 
RSSAJ 
RSCCD,4- 
LOG 
MES29 © 
RSQAF 


BYPASS PRINTOUT IF IN SP 
SW 10 TO BYPASS PRIN OUT 


IF IN SP ROUTINE AN SP 


BRANCH WITH ADR=ADR¢ 


LOOP ROUTINE FOR 5 P SSES 
LOOP ROUTINE IF SW 13 ON 


REPEAY SP ROUTINE 


REPEAT PRNG-SW 14 ON 
PRUGRAM COMPLETED 

PRESS START TO RE-RUN PROG 
LOOP PROGRAM 


ROUTINE 
RETURN ADDR TO MAIN’ INE 


SAVE A 
STORE STATUS CARY+OF O 


SENSE ILSW FOR LEVEL ERROR 


TEST FOR THE ILLEGAL 


SWITCH COMBINATION-SW 10. 


ON AND SW 12 OFF 


BRANCH IF ILLEGAL 


- RESTORE STATUS OF ILSW 


ISOLATE STGE PRT ERR R 


TEST FOR STORAGE PROT VIOL 


BYPASS PRINTOUT IF BRANCH 


ERROR INT-STORG PROT 


ERROR ONLY THEN RETU N TO: 
MAINLINE , 
SW 10 TO BYPASS PRIN OUT 


BYPASS PRINTOUT IF BRANCH 


LOAN ILSW FOR ERROR 
ISOLATE PARITY ERROR 


NTRUP 


ERROR INT-PARITY 
TEST FOR INVALID OP CODE 
ISCLATE INV OP ERROR 


ERROR INT-INV OP CODE 
IF BIT SW 12.0N THEN STOR 


PART NO. 


PAGE 


LCT03420 
LCT03430 
LCT03440_ 


LCT03450 
LCT03460 
LCTO3470 
LCT03480 
LCT03490 
LCT03500 
LCT03510 
LCT03520 
LCT03530 


LCT03540. 


LCT03550 
LCT03560 


-LCTO3570 


LCT03560 


LCT03590 — 
LCTO3600 — 


LCTO3610 
LCT03620 


LCT03630° 


LCT03640 
LCT03650 


‘LCTO3660 
- ECTO3670— 
LCT03680 


LC1T03690 
LCT¥03700 


—LCTO3710. 
iCTO3720 
LCT03730 © 
LCTO3740. 


LCTO3750 


LCT03760° 
LCT03770 
LCTO3780 | 


LCTO3790 


~LCTO3800 


LcCT03810 
LcCT03820 


—LCT03830— 
LCTO3840_— 
LCTO3850 | 
LCT03860 | 
LCTO3870 | 


LCT03860 


‘LCT03890 — 
LCTO3900. 
 LCTO3910 © 
 £CT03920. 


LCTO3930 
LCT03940 
LCTO03950 
LCT03960 
LctT03970 
LCTO3980 


LCT03990 


LCT04000 


LCT04010. 


LCT04020 
LCT04030 
LCT04040 


LCT04050 | 


LCT04060 
LCTO04u70 


' LCT04080 
LCT04090 


PROG ID 


PAGE 


2191208. 
16A 


03A2-1 
168 


ae 








enn ene ne . A en re — 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


CORE STORAGE FUNCTION TEST 
' LOW CORE TEST 


FOR THE 1130 SYSTEM 


OANF OO C400022A LO tL RSQAL 

OA11 0 £919 AND RS AK ACCUM, INS CTRy STAT S 
OA12 O00 4C8809N1 BSC I RSCCAy+ AND WAIT 

OA1L14 9 COOF LD RSSAD LCAD ILSW FOR ERROR 

OA15 9 180C SRA 12 PLACE BITS 0-4 OF ILSW IN 
OA16 O €817 OR RSSAN 11-15 AND OR IN WAIT OP 
OAL? O NN04 STO RSCCH STORE IN WAIT 

0A18 O C088 LD RSCCA LOAD INS CTR IN ACCU 

OA19 O- 1890 SRT 16 TRANSFER INS CTR TO Q 
OAIA 0 C9004 LO RSSAA RESTORE ACCUM CONTEN S 
OA1B O 2090 RSCCE LOS 0 RESTORE NFLO4CARRY INDICA 
OA1C 0 3000 RSCCH WAIT 

OA1LD 00 4C€8009D01 BSC I RSCCA RETURN TO MAINLINE 


* STORAGE AREAS FOR ERROR ROUTINES 


* 


SAVED ACCUMULATOR BUFFER | 


SENSE ILSW FOR 
LEVEL ZERO” 
STORAGE FOR ILSW fe 
. IN SP ROUTINE -1NO, YES 
—NOT°IN SP ROUTINE 


IN STORAGE PROTECT R UTIN. 


ISOLATE BIT SW 12 


WAIT INSTRUCTION | 


OALF 0 9900 RSSAA OC 0 
OA20 9002 BSS E 2 
CA22 0 0000 RSSAC DC /0000 
0A23 0 0300 | DC 10300 
0A24 0 0900 RSSAD DC 0 
OA25 0 FFFF RSSAF DC -1 
OA26 0 FFFF RSSAG CC -1 
OA27 0 9002 — RSSAH DC 2 
0A28 0 2009 RSSAE OC | £2000 
0A29 0 4000 RSSAI DC ~ 7/4000 
OA2A 9 8000 RSSAJ DC 78000 
0A2B 0 9003 RSSAK DC 40008 
OA2C 0 NOOE RSSAL CC 14 
O0A20 0 1001 RSSAM DOC 1 
OA2E 0 390900 RSSAN DC 43000, 
OA2F 0 0028 RSSAO DC 0028 
OA30 0 9020 RSSAP DC 40020 
0A31 0 5555 RSSAQ DC 15555 

ae 

* : 
0A32 0 0000 RSCDD DC 0 
0A33 0 7810 STS RSDDJ 
OA34 0 COFD RSDOX LD RSODD 
NA35 0 99OF6 S RSSAL 
0A26 0 1890 SRT 16 
OA37 0 COFA LD RSDDD 
OA38 0 BOF4S . A RSSAM 
0439 0 DOF8 STO RSDDD 
OA3A 00 90000824 XxIOQ ~L RSQAF 
OA3C 00 C400082A LD L_ RSQAL 
OA3E 00 £4000A28 AND L_ RSSAK 
OA40 00 4CA00A32 BSC I RSDDD,Z 
O0A42 00 C40008D3 LD  -L  RSAN 
0A44 0 2900 RSTOJ LOS 0 
OASS 0 3000 | WAIT 
OA46 ON 4C800A32 BSC I RSDDD 
OA48 0 COES RSDDK LD RSSAQ 
OA49 00 4C400803 : BOSC t RSDKS 

* 


* ERROR ROUTINE TO SERVICE NON-INTERRUPT ERR RS 


STORAGE FOR RETURN A DRES 
STORE STATUS OFLO+CARRY 


CORRECT I REG 
STORE I REG IN Q 


INCREMENT RETURN ADD ESS 
BY 1 TO AVOID DC IN MAINL 
IF SW 12 ON-CORRECT ONSL 
INDICATOR LAMPS ANC AIT 


RELDAD A REG AS PER” RROR 
SAVE CARY+OFLO STATUS 


RESET INTER-RETURN S ART 


EREEEEEKERE EEE REESE ERE ERE EEEES REESE ESSER ERD 


= | LOG ROUTINE * 
EXKEKKESSEKSKREKSHE HKRKEKKK KES SKSEKSS SKETCH KEETAESEKKKE 


«ti, ae 
3000 ~ LOG DC O- 


OASB O 
OA4C 0 4818 LOGO] STX 3 LOGO6F1 
OA4D 00 06000824 ~~ X10 L. RSQAF 
OA4F OC C400082A LD L_ RSQAL 
OAS1 00 4C100A6D BSE Lt TWRIR»- 

‘ | 

~0A53 00 C4800A4B LD I LtoG 
0AS55 0 0052 | STO PRWRT 
DATE O1MAY66 
EC NO. 4154908 


aa SE 
SAVE IX 3 | 


BRANCH IF 1053 OUTPU 


GET MESSAGE ADDRESS. 


SET IN TOCC 


PART NO. 


PAGE 


LCT04100 
LCT04110 
tC1T04120 
LCT04130 
LCT04140 
LCT04150 
LCT04160 


~LCT04170 


LCT041 80 
LCT04190 
LCT04200 
LCT04210 
LCT04220 
LCT04230 
LCT04240 
LCT04250 
LCT04260 
LCT04270 
LCT04280 
LCT04290 


- LCT04300 
LCT04310 


LCT04320 
LCT04330 
LCT04340 


_ LCT04350 
- L€T04360 
~ LCT04370 
—LCT04386 


LCT04390 
LCT04400 
LCT04410 


-LCT04420 


LCT04430 
LCT04440 
LCT04450 
LCT04460 
LCT04470 
LCT04480 
LCT04490 
LCT04500 
LCT04510 
tcCT04520 
LCT04530 
LCT04540 
L©T04550 
LCT04560 
LCT04570 
LCT04580 
LCT04590 
LCT04600 
LCT04610 
LCT™04620 
LCT04630 


LCT04640 


L€T04650 
LCT04660 
LCT04670 
LCT04680 
LCT04690 


_LCTO47T00 
tCT04710 
LCT04720 
LCT04730 
LCTO4740 


LCT04750 


‘LCTO4760 
LCt¥04770 


PROG ID 


PAGE 


2191208 
17 


03A2-1 
17 


= 


(2 


¢) ¢..9 ¢..) ¢. 


C) 


é 


vend 


i) 


+) 


i) 


63 


IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 


CORE STORAGE FUNCTION 


LOW CORE TEST 


OA56 O 
OA5T OC 
0A59 0 
OA5A 00 
OA5C O 


OASD O 
OA5E 0 


OASF 
OA60 


oo 


OA61 


Oo 


OA62 
0A63 
0A64 
OA65 
OA66 


ooo0°o 


OA6T7T 00 
OA69 O00 


OA6GB 00 


OA6D 
OAGE 
OA6F 
OATO 
OAT1 
OAT2 


ooQO000 


OATS 
OATS 


oo) 


OAT6 
CATT 


OATS 


OA79 
OATA 
OA7B 
OATC 


oo0o00 Oo oo 


GATD 0 
OATE 00 
0A80 O 
0A81 00 
0A83 O00 


OA85 0 
OA86 OO 


0A88 00 


OA8A 00 
OA8C 0 


OAsD O 


DATE 
EC NO. 


084D 
4C040A5D 
1301 
4CO4OASF 
7004 


300A 
TOFT 


3008 
TOFS 


0846 


0843 
1002 
4810 
TOFC 
0330 


47000000 
74010A4B 


4CBO0A4B 


1010 
D932 
O83A 
1005 
LAOF : 
4C180AT6 


300C 
70F9 


C028 
DO2ZA 


08 33 


0830 
1808 
4804 
TOFC 


6301 
C4800A4B 
n001 


C7000000 
D4 900 ADE 


FOIA 
4C180A67 


44000 AAE 


C4000ADE 
DOI5 


OBLE 


O1MAY66 
4154908 


LOGO2 
LOGO3 


LOGO4 


LOGO5 
* 


TWRO2 


- 


TEST 


1130 SYSTEM 


CHECK PRINTER READY 
BRANCH IF NOT READY 


BRANCH IF BUSY 
READY AND NIT BUSY 


NOT READY 
CHECK AGAIN 


BUSY 
CHECK AGAIN. 


OUTPUT MESSAGE 


CHECK FOR OP COMPLT 


RESET DSW 


PRINTING COMPLETE 


RESTORE IX 3 
BUMP RETURN 


RETURN TO USER © SX 


CHECK IF TYPEWRITER 
READY | 


NOT READY 

CARRAIGE RETURN AND 

LINE SPACE TO IO ARA 
CARG RETURN/LINE SP 


HANG TILL NOT BUSY 


BYPASS 1443 wORD COU T 
GET MESSAGE ADDRESS 


GET WORD TO PRINT 
SET IN CONVERSION RT 
CHECK IF TERMINATOR 
BRAICH IF. TERMINATOR 


ELEEKEAE EES ERS SESERERECE ES ORS E SEES EREE SES TE 


* 


X10 PRSNS 
BSC Lt LOGO3sE 
SRA 1 
8SC L LOGO4s,E 
MDX LOGOS 
WAIT 10 
MDX LOGO2 
WAIT 11 
MDX LOGO2 
X10 PRWRT 
x10 PRSN 
SLA 2 
BSC - 

MOX t—% 
x10 PRSNS 
LDX L300. 
MDX L_ LOGy1 

BSC I LOG 
SLA 16 
sTD WROSW 
x10 TWSNS 
SLA 5 
SRA 15 
BSC L  TWROLet- 
WAIT 12 
MDX TWRIR+2 
LO TWRTO 
STO IOARA 
x10 TWWRT 
x10 TWSNS 
SRA 11 
BSC E 
MDX *-4 
LOX 31 
LD 1 toG 
STO TWRO241 
LD 130 
STO Lt CODWD 
EOR TwRT] 
BSC L LOGO6e4- 
BSI Lt CODCV 
LD Lt CODWD 
STO IOARA 

TWWRT 


< te +e 


IOWR 


*% 


x10 


GO CONVERT 43 TO TW 9sdRC 


CKKEKEKSESESCKKSEKKKSKELARK KEKE EC SESE KE KEKE SHE SEKE KE KES 


OUTPUT A CHARACTER | 


WRITE CHARACTER 





PART NO. 


PAGE 


LC104780 


LCT04790 
LCT04800 
LCT04810 
LCT04820 
LCT04830 
LCT04840 
LCT04850 
LCT04860 


“LCT04870 


LCT04880 


_tCcT04890 


LCTO4900 


~LCTO4910 


LCT04920 
LCT04930 
LCT04940 
LCT04950 
LCT04960 


tCT04970— 


LCT04980 
iCT04990 
t_cT05000 
LCTO5010 
LCT05020 
LCT05030 
LCT05040 
LCT05050 
LCT05060 
LCTO5070 
LETOSO80 
LCT05090 
LCTO05100 
tCT05110 
LCTO5120 
LCT05130 
£CT05149 
LCT05150 
LCTO5160 
LCT05170 
tcT™05180 
tCT05190 
t_cTo5200 
LCT05210 
LCTV5220 
LCTO52 30 
LCTQ5; «0 
rcre:. £0 
LCTGt. ¢C 
LCTO&. 7S 


LCTO52R0 


LCT05290 
LCT05300 
LCT05310 
LCT05320 
LCT05330 
LCT05340 
LCTOS350 


LCT05360 


LCTOS3TO 
LCT05380 
LC¥05390 
LCTO5400 
&LCT05410 
LCT05420 
LCT05430 
LCT05440 
LCTO5450 


PROG ID 


PAGE 


2191208 
17A 


03A2-1 
17A 














IBM MAINTENANCE DIAGNOSTIC PROGRAM 


CORE STORAGE FUNCTION TEST 
LOW CORE TEST 


OASF 
OABF 
0A90 
OA91 


YY OOO 


0A92 
0A93 
0A94 


om ae) 


OAS5 
OA96 
OA97 
OAQ9B 
OAPL 


ondoOeo 


0OA9S O 
OASC OC 
OASE 0 


OAQF 
OAAC 
OAA1 
OUA2 


oOo°0O°0 


OAAS 


OAA4 
OASS 
OAAS 
OAAT7 
OAAB 
OAAS 
OAAA 
OAAB 
OAAC 
OALD 


oooo0ocoo0qo°o 


OAAE 
OAAF 
OABO 
OABI 


Qoao97°0 


OAB2 
0AB3 
0AB4S 


oO290 


OABS 
OAB6 
OAS87 
OAB8 
OABI 


OoO°O0000 


OABA 
OABB 
OABC 


o> oo El ) 


DATE 
EC NO. 


9818 
1308 
4504 
TOFC 


COOE 
4304 
7006 


CIOC 
1908 
DIOA 
TGO10AA1 
TOF2 


7301 
74010AA) 
TOE2 


3103 
FFFEF 
0900 
9000 


0000 


39900 
3701 
JI00 
3700 
N000 
3500 
0000 
QFOL 
OAA2 
9900 


0300 
6927 
5A28 
63829 


1010 
NO2R 
6300 


C928 
1890 
CO27 
4820 
1088 


1010 
1984 
0023 


O1MAY66 
4154908 


XIOSN XIO 


SRA 


BSC 
MDX 


% 


LD 
BSC 
MIX 


+ 


LD 
SLA 
STO 
MDX 
MOX 

* 

* 

& 

TWRO3 MDX 
MOX 
MOX 

* 

x 

* 

TWRTO DOC 

TwRT1 OC 

WRODSW DC 

IOARA DC 

* 


* 
PRSNS OC 


PRSN CC 
PRWRT OC 
TWSNS DC 
TWWRT DOC 
& 


* 
* 


*x 
CODCV DC 
STX 


STX 
STX 


SLA 
STO 
LOX 


cnpel LD 


SRT 
LO 

BSC 
SLT 


SLA 
SLT 
ST9 


(ww AD pm 


FOR THE 1130 SYSTEM | 


TWSNS HANG ON BUSY 
ll 

E 

XIOSN BUSY 


CHECK IF 1ST 1/2 WORD 


GET 1/2 WORD SWITCH 


WRDSW 
E 
TWRO3 GO SET UP NEXT WORD 


SET UP FOR 2ND 1/72 WORD 


IOARA : 

8 POSITION 2ND 1/2 WD 
IOARA 

WROSWol BUMP WORD SWITCH 
XI1OWR GO WRITE 2ND 1/2 WO 


SET UP FCR NEXT WORD 


1 


NEXT WORD INDEX 


WROSWyl BUMP WORD SWITCH 
TWROZ GO GET NEXT WORD 

LOG CONSTANTS 
18103 LINE SP/CARRAIGE RTN 
/FEFF TERMINATOR 
0 1/2 WORD SWITCH 
0 OUTPUT AREA 
0 
/0000 PRINTER SENSE IOCC 
43701 
0 NON RESET SENSE 
/3700 
/0000 PRINTER WRITE IOCC 
13500 
40000 | TYPEWTR SENSE IOCC 
/0FO1 DSW RESET PMO1 
IDARA TYPEWTR WRITE IOCC 
/0900 WR TYPEWRITER PMO2 


SHEE ESEAEEAS SEK EKER SERCH SEES SEEKS TEREEEEKEEEE 


1443 CODE TN 1816/1053 * 
CODE CCNVERSION ROUTINE * 
KERKEKKE KEK SKK SE KK ARH KETRE SERS KEKE EK ES EEE SE 


0 SE 
CONC4+1 SAVE INDEX REGS 
CCODC4+3 

CUDC4S+5 

16 CLEAR LEFT HALF WORD 
LHIND *INDICATOR 

0 

COOwD GET wORD TO CONVERT 
16 SET IN Q 

LHIND 

Z SKIP JF LEFT HALF 

8 POSITION RIGHT HALF 
16 

4 ZONE TO ACCUM 

cobdoo 


PART NO. 


PAGE 


LCTO5460 
LCTO5470 
LCT05480 
LCT05490 
LCTO05500 
tcT05510 
LCT¥05520 
LCT05530 
LCT05540 
LCT05550 
LCTO5560 
LCTO5570 
LCT05580 
LCT05590 
LCTO05600 
LCT05610 
LCTO5620 
{CT05630 
LCTO05640 
LCTO5650 
LCT05660 
LCTO5670 
LCTO05680 
LCTOS5690 
tcCTOS5700 
LCTO5710 
LCTO05720 
LCT05730 
LCT05740 
LCTO5750 
LCT05760 
LCTOS770 
LCTO5780 
LCTO5790 
LCTO5800 
LCT05810 


LCTO5820 


LCTO5830 
LCT05840 
LCT05850 
.CT05860 
LCTO5870 
LCT05880 
LCT05890 
LCTO5900 
LCTO5910 
LCT05920 
LCT05930 
LCT05940 
tC¥05950 
LC*¥05960 
LCTO5970 
LCTO5980 
LCTO5990 


tCTO6000. 


LCTO60)0 
LCTO6020 
tLCT06030 
LCTO06040 
LCTO6050 
LCTO06060 


LCTO6070 


LCTO6080 
LCTO6090 
LCT06100 


LCT06110— 


LCT06120 


i. CT06130 


PROG ID 


PAGE 


2191208 


Cc 


18 


A2-1 
18 


ey 
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Co 
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a) 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


CORE STORAGE FUNCTION TEST 


LOW CNRE TEST 


OABD 


OABF 
OACO 
OAC1 
OAC2 


OAC4 
OAC6 


OACT 
OAC9 


OACB 
OACC 
OACE 
OADO 
OAD] 


OAD2 
0AD3 
0ADS 
OA05 


OAD6 
OADB 
OADA 


OADC 


OADE 
OADF 
OAEO 
OAE1 
OAE2 


OAE3 
OAES 
OAES5 
OAE6 


OAE? 
OAEB 
OAE9 
OAFA 
OAEB 
OAEC 
OAED 
OAEE 
OAEF 
OAFO 
OAF1 
OAF2 
OAF 3 
OAF4 
OAFS 
OAF6 
OAFT 
OAFS8 
OAFS9 
QAFA 


DATE 


00 


0 
0 
0 
00 


00 
0 


OO 
00 


OoOoqQocdc 


aooc°o 


oooo0ooo0oo°0oeo0o0c00o0oe0 0° °000 © 


EC NO. 


65800AE0 


1010 
1084 
DOLE 
66800AE0 


CSOOOAE3 
001 


C€6000000 
N7TOO00AE1 


CO13 
4C200AD2 
740 10ADF 
7301 
TOF3 


COOE 
1008 
E80D 
098 


650000CO 
65000000 
67000000 


4CBOOAAE 


0000 
0000 
0000 
0000 
0000 


OAE7 
OAF2 
OAFD 
OBO07 


0021 
OOFC 
00D8 
OODC 
OOFG 
OOF4 
Onno 
N04 
OOES 
ONEO 
00C4 
0000 
0000 
OO9A 
OOSE 
00B2 
0086 
0092 
0096 
OOA6 


O1MAY66 
415490B 


COo0Cc2 


CO0Cc3 


CNDC4 


# 


een # 


COOwWD 
LHIND 
CNDO0O 
Co001 
COD02 


ONE 


ZONEN 


ZONEL 


~OX 


SLA 
SLT 
STO 
LOX 


LD 
STO 


LD 
STO 


LD 

BSC 
MDX 
MDX 
MOX 


LO 
SLA 
OR 
STO 


LOX 
LOX 
LOX 


BSC 


oC 


DC 
DC 
DC 


Il 


12 


Ll 


L2 
L3 


Ll 
L2 
L3 


Cood00 


16 

4 
Co000 
CovDoOo 


ZONE 


CODC2+1 


0 
coool 


LHaND 


CO0C3,2 
LHINO,1 


l 
Cooc! 


C000) 
8 

coo002 
COOwD 


0 
0 
0 


CCOCV 


oo0o0o0°o 


ZONEN 
ZONEL 
ZCNE2 
ZONE3 


/0021 
/OOFC 
/00D8 
/OCDC 
/OOFO 
JO0F4 
/00D0 
/00D4 
JOOE4 
/O00E0 
/00C4 


JOO9A 


/O0O9E 
/COB2 
/O00B6 
/0092 
10096 
/O00A6 


IX 1 = ZONE 


DIGIT TO ACCUM 
IX 2 = DIGIT 


GET ZONE TABLE ADORS 
SET IN CONVERSION WD 


GET CONVERTED CODE 


BRNCH IF RIGHT HALF 


GO CONVERT RIGHT HLF 


PACK CONVERTED CODES 


RESTORE INDEX REGS 


RETURN TO USER SX 


CONSTANTS 


WORD LOCATION 

LEFT HALF INDICATOR 
WORK AREA 

CONVERTED LH CHARACT 
CONVERTED RH CHARACT 


1443 TO 1816/1053 CODE 
CONVERSION TABLES 


NO ZONE 
O ZONE 
11 ZONE 
12 ZONE 


SPACE 


Onan awn wy ow 


<xz<c-4y 


PART NO. 


PAGE 


LCTO6140 
LCTO06150 
LCT06160 
LCT06170 
LCT06180 
LCT06190 
LCTO06200 
LCT06210 
LCTO6220 
LCT06230 
LCT06240 
LCT96250 
LCT06260 
LCTO6270 
tCT06280 
LCTO06290 
LCT06300 
LCT06310 
LCT06320 
LCT06330 
LCT06340 
LCT06350 
LCT06360 
LCT06370 
LCT063 80 
LCT06290 
LCT06400 
LCT06410 
LCT06420 
LCT06430 
LCT06440 
LCT06450 
LCT06460 
LCT06470 
LCT06480 
LCT06490 
LCTO065C0 
LCT06510 
LCT06520 
LCT06530 
LCT06540 
LCTC6550 
LCT06560 
LcCT06570 
LCT06580 
LCT06590 
LCT06600 
LCT06610 
LCT06620 
LCT066030 
LCT06640 
LCT06650 
LCT06660 
LCTO06670 


LCT06680 


LCTN6690 
LC1¥06700 
LCTO06710 
LCTOEé720 
LCT06730 
LCT0E740 
LCT06750 
iLCTO6760 
LCT06770 
LCTO6780 
LCT06790 
LtC¥oé6800 
LCT06810 


PROG ID 


PAGE 


2191208 


165A 


03A2-1 
18A 


Vi 


veg 


serrmncena eT 


tam 


IBM MAINTENANCE OTAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


CORE STORAGE FUNCTION TEST 


LOW CORE TEST 


OAFB 
OAFC 
OAFOD 
OAFE 
OAFF 
0800 
0801 
OB02 
0303 
0B04 
0805 
0B06 
OBOT 


0B31 


0833 
0B34 
0B35 
0836 
0837 
0838 
0839 
OB3A 


DATE 


oooooqooo°oo°eo°dco 


oooocoada0coeoeoo0o0ceo0ccI0ce90ocooo0o 


ooo0oo0 


oooeoooo9c °c 000 


ooo0o0o0o°o;cud.Cod 


O0A2 
Ve1 
9000 
ONTE 
OO5A 
OOSE 
9072 
09T6 
9952 
0656 
0066 
0062 
9000 
OO3E 
OOLA 
OO1E 
0932 
0036 
0912 
9016 
0926 
9022 
0086 
0000 


QOO0A 
2435 
2426 © 
2918 
9013 
3512 
1300 


. 2326 


1600 
3326 
2935 
FFFF 


0N04 
2729 
2637 
0035: 
2534 
FFFEF 


OOOA 
3529 
2926 
290° 
3925 
1300 
1213 
2629 
3700 
2729 
2613 
FFFE 


0908 


3529 


2926 
2900 
3925 
1300 
2731 
2939 
1318 
FREE 


O1MAY66 


oh 


ZONE2 


ZONE3 


MESI5 


MES16 


MES17 


MES18 


/O00A2 
/0021 


/OO7E 
/OOSA 
/OO5E 
0072 
/0076 
/0052 
/0056 
/0066 
/0062 


/O03E 
/OO1A 
/OO1E 
/0032 
10036 
/0012 
/9016 
/0026 
/0022 
/0086 
/0000 


10 

12435 
12426 
/2918 
/0013 
13512 
41300 
12326 
/1600 
13326 
12935 
/FFEF 


2729 
12637 


10035 | 


12534 
/FFFF 


10 

43529 
12926 
42900 


13925 


41300 
41213 
12629 
/3700 


42729 


12613 
/EFFF 


43529 
42926 
4/2900 
13925 
41300 
42731 
42939 
/1318 
/FFFF 


“rnam 


PACE 


POVOA BEMPKG 


@Tonmnoow pr 


O ERROR 


TERM 


PART 
PAGE 


LCT06820 
LCT06830 
LCT06840 
LCTO6850 
LCT06860 
LCTO6870 
LCTO06880 
{CT06890 


NO. 


LCTO6900 ~ 


LCT06910 
LCTO06920 
LCT06930 
LCT06940 
LCT06950 
LCT06960 
LCT06970 
LCTO6980 
LCT06990 
LCTOTOOO 
LCTOTO1O 
LCTO7T020 
LCT07030 
LCTOT040 
LCTOT050 
LCTOT060 
LcCTO7070 
LCTO7080 


LCTOTO90 
tcCtT07100 


LCTO7110 
LCTO7120 
LCTO7130 
LCTOT140 
LCTO7150 
LCTOT160 
LCTOT170 
LCT0O7180 
LCT¥07190 
LCT07200 
LCTOT210 
LCTO7220 
LCTO7T230 
LCTQT240 
LCT07250 
LCTO7260 
LCtTo7270 
LCTO7280 
LCTO7290 
LCTO7300 
tCT07310 
LCTO7320 
tcT07330 
LCTO07340 
LCTO07350 
LCTO7T360 
LCTOT370 
tCTo07360 
LCTO7390 
LCTO7400 
LCTO7410 
LCTOT420 
LCT07430 
LCTO7440 
LCTO7450 
LCTO7460 
LCTO7470 
LCTO07480 


LCTO7490 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


CORE STORAGE FUNCTION TEST 


LOW CORE TEST 


0838 


OB3C 


0860 


0B64 


DATE 


EC NO} 


oO 

@ 

+ 

i) 
oOoo0o0 0 00 0 000 0 


Oo ~) 
® @ 
wn wn 
o b 2) 
oo0o°o oo0°o ooa°o OoOo0°0 oOoco oOoO0 0 


Oo 
ise] 
o 
pat 
ooo 


Oooc 
3529 
2926 
2960 
3925 
1300 
3925 
1500 
2627 
0033 
2634 
3500 
FFFF 


0002 
3529 
0001 
FFFE 


0002 
3529 
0002 
FFFF 


0002 
2529 
9003 
FEFF 


0002 
3529 
9004 
FFFF 


0002 
3529 
0005 
FFEF 


0002 
3529 
0006 
FFFF 


9000 
0000 
0000 
0800 


OlMAY66 
415490B 


MES19 


MES20 


MES21 


MES22 


MES23 


MES24 


MES25 


RSEND 


END 


12 

13529 
1/2926 
4/2900 
13925 
41300 
13925 
/1500 
12621 
/0033 
12634 
43500 
JFFFE 


13529 
/0001 
/FFEF 


13529 
10002 
/FFFF 


13529 
/0003 
/EFEF 


13529 
10004 
/FEFF 


13529 
/0005 
/EEFF 


43529 
/0006 
JEFFF 


RSOKR 


aihsagcs sete PEW: 


WO CT 
RO 
IN 
IN 
oP 
O00 
TERM 


wO CT 
ER 


TERM 


WO CT 


TERM 


WO CT 
ER 


TERM 


wD CT 
ER 


TERM 


WO CT 
ER 


TERM 


wO CT 
ER 


TERM 


FOR THE 1130 SYSTEM 


PART NO. 


PAGE 


LtCTCc7500 
LCTO7510 
LCTO7520 
LCTO7530 
LCTOT540 
LCTO7550 
LCTO7560 
LCTOTS70 
LCTO7580 
LCTOTS90 
LULTOT600 
LCTOT610 
LCTOT620 
LCTOT630 
LCTO7640 
LtCTo07650 


LCTOT660 


LCTOT6TO 
LCTUT680 
tCTOT690 
LCroT7700 
LCTOT710 
LCTOT720 
LCT07730 
LCTO7T740 
LCTO7750 
LcCT07760 
LCTOT770 
LCTO7780 
LCTO7790 
tcTo7s00 
LCTO7810 
LCTO7820 
LCTOTe30 
LCTO7T840 
LCcCTo7850 
LCTOT860 
LCTOT870 
tcrTo788s0 
LCTC7T890 
LCTO7900 
LCTO7910 
LCTO7920 
LC¥07930 
LCTO7940 
LcT07950 
LCTO7960 
LcTo7s70 
LctTo7980 
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IBM MAINTENANCE QIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191208 | 18% MAINTENANCE OLFAGNOSTIC PROGRAM FOR THE 1130 SYSTEM : PART ND. 2191208 _ 
| | PAGE . 20 : | - PAGE 20A a 
| a € | 2 a 
CORE STORAGE FUNCTION TEST mS” x CORF STORAGE FUNCTION TEST | 
LOW CORE TEST | LOW CORE TEST a 
| co 2 
CROSS REFERENCE LISTING RSACH 090€ 0921,0930 7 
= = RSACJ 98DC 0803,093E ) 
SYMAOL VALUE REFERENCES _ RSACK = O3E2 0935 | 
CONCV. ‘OAAE 0A8 8, OADC RSACL 0900 0938 : 
CONCL Ass OAD1 . - RSACM 0977 0968 ). 
cCnocz ACT OAC6 a RSACN 9958 0972,097C,0985 
cooc3. = *NAD OACC RSACO —:N95F 0956,C982 
CNNCe ADs - OAAF ,0AB0, 0AB1 - - RSACP O9A7 0998 ) 
COOWD = OADE 0A83_0A8A,0AB5,0AD5 - RSACQ 0O98F 09A2,094C ,0985 
Con00 = 8=—_—«OAF0 OABC e OABD, OAC ,OAC2 RSACR 0990 O98E ,0982 Pe. 
cop0l = OAE 1 0AC9,0A02 = = RSACS 0953 0988 pee 
Con02 oOAe2 OAD4 — | ™ RSACU 0952 094E ,09BF oe 
INARA = OAA2 0A7 7» OABC » 0A95,0A97, OAAC RSACV 094C 0940 ws 
LHINO ADF 0AB3»90AB7, O0ACB,OACE . - RSACW 0939 OfES a, 
LOG OA4B OIEF 9 OA0 3_ OANA 90 A532 0A69, 0A6B, OATE ~ RSACX OfE6 O8E4 Ss 
 LOGOL OA4C RSADA 09C1 0950 
L0GO2 GA56 OA5E,0A60 co ad RSADR 0908 0906 
(0603 OASD OAS? = RSCCA 90901 0827, O9F SpOQAL2,0A18,0A10 © 
LOGOS OASF. OA5A RSCCA . ~ ODF? -—09E2,09F2 
L0GO05 OA61 OA5C | mS RSCCC 0A06 OAOl | | | i ae 
L3G06 ° NA6T OA4C » 0A86 Paw RSCCN oaAnd 09E0,09F0,.0A08 ar as | a ae 
MESL5 99333 fi oa RSCCE OALB 0903 . oY 5 ae a 
MES16  OSI1F - ; @. RSCCG 09F3 O9ES yO 
MESI7? 0825 | OoF 1 ae -RSCCH OAIC OAL? aie 
MESL8 0831 OAOS RSCCQ O9CF 09c3 ak 
MES19 0838 Oa0C at, = RSOOD 0A32 O85E, 0885s 0880,0923, 0574,09A6 ,0436 »0437,0439,0840, i ye 
MES20 0848 ee 0A46 a 
MES21. 084C eo RSUDJ QOA44 0A33 so . 
MES22 0850 ' o RSODK 0A48 09DE sy 
MES23 0854 ai RSDOX 0A34 i 
MES2@ 0858 RSOKR 0800 0863 ae 
MES25 0B5C : o RSDOKS 0803 0822,09C0,0A49 \- 
NEXT 09n8 0906 = RSEND 9860 095F,0990 ae: 
PRSN OAA6 - OA62 RSEXI  O9CC | 3 5 
PISNS OAAS 0A56,0A66 xy. <= RSFAA 9810 | 083E an ee 
PRWRT OAA8 0A55,0A61 | = RSFAB OS1E 08 3F,09C1 ee 
RSAAB 0813 O80F | —RSQAC 0826 0841, 084C»0879,08F4,0908,0953,0988 o 
RSAAC 0818 0813 a ¢c RSQAD 0827 0835 7 y 
RSAAD 0819 08ll RSQAE 0928 0843, 0844 ,0845,084E, 084F 0851, 0868 : 
RSAAE SILA 0806,0808 RSQAF 0824 0956, 0861 ¢ C8709 088A, 0892, 08A8 0883 »08CB »091B,0928, 
RSAAH 0318 0847,0869, 08C.2,0904,0933,0983, 0983 a o | 0939 5096C e 097 7,099C 9 09A7 , 098920904 10903 c09ET OOF Te “y 
RSAAK 0O3S1C 08 1440830, 094C | > “4 OA0D,0A3A_0A4D | 
RSAAL  O81F 082D | RSQAH 0806 0873~,087C, O87F .0881,089D, O8A1,08C1 s08C6y08E6,0BET, | 
RSAAM 1822 0800,0803 cas o O8EA, OSEB, OSED, O8EE O8F1,08F2 ye 
RSABA 0820 0817 | i RSQAI 0807 O87E oo 
RSABB 9941 O96F. RSQAJ 0808 099A a 
RSABC 0843 0848 =. o RSQAK 08D9 089B,089C, 089F ,08A3, 0888, 085F _ = 
RSABD 084C 0848 i RSQAL 082A 0524,0858,C862,08729089C,C89%,08AA,08B5 ,0A8CD,091D, 
-RSABE O84E 085C » 0866, C86D 092D1093Bs 096E 5 0979;.099E 90949 0988 5 09CG 5 OFDA 109E Fy 
RSABF . 0961 0852 7 o O9F 9, 0A0F» 0OA3C ,0AGF 7 14 
RSABG 096€ 0864. = RSQAM - OSDA O8C 7» O97F » O9AF 
RSABH 0840 0876,09CF . RSQAN 99808 DBe at Coe aren esOohyOseksOiee Ones ; 
RSABI 083E 0831,09CA ~ = RSQAO) 0825 0834 2 
RSABJ 0392 0R83 = -RSQAP 0829 0833 a 
RSABK 1883 O8Ae RSQAQ 0804 O8EO 
“RSABL 089C 03AE,0889 = - RSQAR OKD5S  08E1,08E2 5 
RSABM 039C1 088D RSQAU _082B 0838 a 
RSABN 0878 0890,0898, 98C8 RSQAV =-:082C 0838 
RSABO 93C9 08t4 “= - RSRAA 0941 O8F 64 O8F 7 O8FE, 0901 59903,0909,090D, 091050926,0932 = 
RSABP 9879 -OSCA < aes 7 RSRAB 0942 08F9,08FB : 
RSABQ 1990 ~ 03CO RSRAC 0943 ORES , OBEF » 09144091 6,095B,0967 
RSABR 90978 0801 a oe RSRAF 0944 0955 »095C 5 0960409634 0955 y097E 20981 5098) 50991 50994, 5 
RSACA 90901 OS8FC . as 0996, 09AE,09B1 
RSACB O3SFT O9CA RSRAF 0945 09762,0993 
RSACD 0903 0900 ~ RSRAG 0946 08 74,08CF,093D,0980 5 
RSACE 0916 0912 a RSRAH 0947 09C8 
RSACF 0926 0915,0917 RSRAI 0948 085A ,03864, 088E, 0896, CSAC, 0887, 091F ,092F 40970,0978, 
RSACG 0910 092A : = <= 09A0,.09AB +) 
DATE © O 1MAY66 PROG ID 03A2-1 y» DATE O1LMAY66 PROG ID 03A2-1 oe 
EC NOj 4154908 : PAGE 20° | nl EC NO. 4154908 | PAGE 20A _ 


TBM MAINTENANCE OI]AGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


CORE STORAGE FUNCTION TEST 
LOW CORE TEST 


RSRAJ O94A O90E 

RSRAK 0948 090F,0928 
RSRAX 19949 09EB,09FB 
RSSAA  OAILF 0902,0AlLA 


RSSAC OA22 0904 
RSSAD OA24% 


RSSAE NA28B O09E1,09F4 
RSSAF OA25 0959,0989, 09E4% 
RSSAG OA26 0987 

RSSAH OA2T7 0957 

RSSAI NA29 OAOO 

RSSAJ OA?A OAOT 

RSSAK OA2a OA11,OA3E 
RSSAL NA2C 0A35 

RSSAM 9A20 6A38 

RSSAN OA2ZE OA16 

RSSAN QA2F Oo9DC 

RSSAP 0A30 o9g9nD 

RSSAQ QA31 O0A48 

TWRIR QNA6D 0A51,0A75 
TWRTO OAIF OAT6 

TWRT1 QAAO OA8B5S 

TWROL NAT6 CAT2 

TWRO2 OAB1 0A80,0A9E 
TWRO3 OA9IB OA94 

TwWSNS NQAAA 0839, 0A6F,0A7T9,0A8E 
TWWRT NAAC 083C,0A78, 0A8D 
wROSW OAA] OAGE »,0A92, 0A98,0A9C 
XIOSN NABE OA91 

XTOwWR 0A8D OA9A 

ZONE OAE 3 . OAC4 

ZONEN OAE7 OAE3 

ZONE] NAF2 OAES 

ZONE2 OAFO OAES 

ZONE3 0807 * OAES 


DATE O1MAY66 
EC NO. 415490B 
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METER TEST 
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Ze2e2 I/C READY 
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4 PRINTOUTS (NONE) 


5. COMMENTS (METHOD UF TEST) «2 ed. ee rosa ec cececeevece 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 2 2 PART NO. 2191250 
| em) aa i PAGE 1A 

METER TEST 
1. PURPOSE 

he TO CHECK THF ACCURACY OF ALL GF THE USE METERS. 

B. WHEN THE 1131 USE METER IS SWITCHED TO CoE MUDE, GNLY THE CoE. METER 

ADVANCES. 


Ze PRERECUISITES. 
2-1 PROGRAM 


THIS PROGRA® DOES NOT RUN UNDER CONTROL OF THE 1130 DIAGNOSTIC 
MONITOR. IT 1S SELF LOADING. (USES THE BASIC DIAGNOSTIC LUADER) 


202 EQUIPMENT 
CUSTOMER ENGINEER USE METER KEY 
32 USE PROCEDURE 
THE OPERATING PROCFOURE CONSISTS OF SHE FOLLOWING STEPS. 
1. KECORD ALL METER READINGS 
2e LOAD THE PROGRAM 


3. ENTER SYSTE* 1/0 CONFIGURATION IN THE CONSOLE ENTRY SWITCHES © (WATTID 
4. SET THE fUMBER GF 72 SECOND LOOPS OrSiRED. (WAIT2) 


S. CHECK METERS WHILE IN CoEs MODE. (THIS SECTION IS GPTIONAL) — 


6. CHECK THE CUSTCMER METERS 
Te COMPLTE THE ELAPSEC TIME.(BY HAND) 
8. CHECK THE METER CONTROL CIRCUITS. 


3el EOEUING 


le RECORD THE READINGS ON ALL OF THE CUSTOMER METERS. THE CUSTOMER 
KUST RE GIVEN CREDIT FOR THIS TEST TIME. | 

2e PUT THE 1131 METER IN C.E.MODE. 

3- PLACE CARODS/PAPER TAPE IN READER. 

&4- PUT REAYECR I%] READY CONDITION 

Se PRESS THE 1131 RESET KEY 

6- PRESS THE 1131 PROGRAM LOAD KEY. 


-— - NOTE _ | : 
IF THE PRUGRAM LOADED CORRECTLY, 17 WILL STOP aT WAIT 1. 
(LOC >SC2UB) 


302 OPERATION 


THE SYSTEM I1/G CONFIGURATION MUST NOW BE SET IN THE CONSOLE ENTRY 
SWITCHES. USE THE FCLLOWING FORMAT. 


BIT 13 f§ = SYSTEM HAS 1132 
BIT 24 ON = SYSTEM HAS 1442 
BIT 15 (N = SYSTEM HAS DISK STORAGE. 


FOR EXAMPLE, IF A SYSTEM HAS ALL THREE OF THE 1/0 DFVICES, ALL THREE 
BIT SWITCHES WOULD BE TURNED ON. | | 
PRESS 1131 STAR? BUTTON. PROGRAM WILL GO TO WAIT 2. (LOC 0216) 

30202 MAKE THE I1/M UNITS RELDY; 


| 1442- PLACE A FEW CARDS IN THE FEED HOFPER AND ERES = THE 1442 START 
KEY. THE 1442 KEADY LAMP SHOULD GLOW. 


1132 - TURN CN THE POWER SWITCH, AND PRESS THE 113? start KEY. 
| THE 1132 READY LAMP SHOULL GLOW, = ~ 


DATE O2JANSS a re er re | PROG 1D 0384-0 
EC NC. 89415690 a. a PAGE 1A 
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METER TEST 
30203 1M CHECK C.F. MODE (THIS SECTION IS OPTIONAL) 
le SET THE CUNSULE ENTRY SWITCHES TO INDICATE THE NUMBER OF 72 
SECONL LOOPS THAT YOU WISH TO MAKE. IF UNE LOOP IS DESIRED, 
TURN ON SIT 15. IF THO LCOPS ARE DESIRED, TURN ON BIT 14. ETC. 
2. RECORD ALL METER READINGS. 
3. PRESS LI3L START KEY. 
NOTE 
If THE PROGRAM STOPS Ale 
VAIT 3 (LOC.0725) THE 1442 IS NOT READY. 
d4AlT & (LOC2O22A) THE 1132 IS NOT READY. 
WAIT © (LOC.9Z37) THE GISK 1S NOT READY. 
we PRCGRAM WILL STOP AT WAIT 5 (10229265) WHEN THE DESIRED DELAY IS 
COMPLETED. METER ACCURACY SHOUL) BE PLUS OR MIKUS XX. 
be Cece MEYCR SHUULD HAVE ADVANCED 2.02 HOURS FOR EACH LOUP RUN. THE 
CUSTOMER METERS SHUULD NOT HAVE HOVED. 
be TU REPEAT LOUP, PRESS START KEVe 
*. SWITCH V131 METER OFF OF CE RHODE. 
3.2.4 TN CHECK CUSTOMER METERS 
Le SET THE CONSULE ENTRY SWETCHZS TO INDICATE THE NUMBER OF 72 
SECCND LSOPS THAT YOU WISH TO MAKE. IF ONE LOUP I$ DESIRED, 
TUR! ON 910 15. IF TWO LOOPS ARE DESIRED, TURN ON BIT 14. ETC 
2. RECUPD ALL METER READINGS. 
3. PRESS LU3BL START KEYs 
NOTE 
if THE PRUGRAM STOPS AT. 
WAIT 3 (LUC.0225) THE 14462 1S NOT READY. 
WAIT © (LOC.022A) THE 1132 1$ NAT READY. 
VALT 6 (LO0C.0237) THE-CISK IS NUT READY. 
&. PROGKAY ATLL STOP AT WAIT 5S (190.0265) WHEN THE DESIRED DELAY IS 
COPOLETFO. METER ACCURACY SHOULD BE PLUS OR MINUS XX. 
5. THE CUSTOMER METEXS SHOULD HAVE ADVANCED 2.02 HOURS FOR EACH LOOP 
PUN. THE Cofe METER SHOULD NOT HAVE MOVED. 
6. YO REPFAT LCUP, PRESS START KEY. 
302.5 CONTROL CIRCULTRY CHECX 
le WAILE RUSNING THE PROGRAP IN & 72 SECOND DELAY LOOP. 
A. THE 1132 METER SHOULD STOP IF THE 1132 CARRIAGE RESTORE OR 
CARRIAGE SPACE KEY IS PRESSED. 
Be THE 1442 METER SHOULD STOP IF THE 1442 NPRO KEY IS PRESSED. 
2. CHECK THAT U0 METERS ARE MOVING WHELE PROGRAM IS AT WAIT 5e 
3. WHEREVER THE 1131 METER IS TURNED ON, THERE IS A DELAY CIRCUIT 
THAT KEEPS THE METER RUNNING FOR & MINEMUM OF 4°O MILLISECONDS. 
10 CHECK THIS CIRCUIT, SET THE 1132 MODE SWITCH TO SINGLE 
INSTRUCTION(SE). WHEN THE 1131 START KEY IS PRESSED» THE RUN 
LAVP SHNULG GLOW FUR AN INSTANT (400M2S.) IF TROUBLE IS SUSPECTED 
AN OSCILLOSCOPE SHUULO BE USED. 
DATE U2JAN66 PROG 10 0344-0 
EC NO. 415490 PAGE 2 
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R TEST _ ait 


3.3 WAITS 


CLOC 929B) SET THE 1/0 CONFIGURATICN IN THE CONSOLE ENTRY 
SWITCHES.PRESS THE 1131 STARY BUTTON. 


WAIT 1 


(LOC 0216) SET THE CONSOLE ENTRY SWITCHES TO INOICATE THE 
NUMRER OF 72 SECOND (2.02 HOURS) LOOPS DESIRE: PRESS 1131 
START CVUTTON TO BEGIN TEST. 


WAIT 2 


CL0C.0225) THE 1442 IS NOT READY. TO RESTART, PUT 1442 IN 
REANY STATUS» AND START TiiE PROGRAM AT *SENSE® {LOC 0217) 
(CCNSOLE ENTRY SWITCHES SHOULD STILL HAVE NUMBER OF LOOPS 
OESTRED) 


wAIT 3 


(LOCU2Z2ZA) THE 1132 1S NOT READY. TO RESTART. PUT 11232 IN 
REANY STATUS, 4NO START THE PROGRAM AT *SENSE® (LOC.O2Z17T)- 
(CCCNSOLe ENTRY SwITCHES SHOULD STILL HAVE TRE NUMBER OF LOOPS 
CESIPEG.S 


WAIT 4 


WAIT S {LOl 0245) END OF TEST. PRESS 1131 START BUTTON TO REPEAT 

— TEST. 

(LCC 0237) THE CISK IS NOT READY. TO RESTART, PUT THE DISK IN 
9RELMY* STATUS, AND START THE PROGRAM AT *SENSE® (LOC.0217) 
ECCNSOLE ENTRY SWITCHES SHOULD STILL HAVE THE NUMBER OF LOOPS 
CESIREC.) 


WAIT 6 


304% TERPINATIONS 


THE PROGRAM WILL STUP AT WAIT 5 (LOC.0245) WHEN THE TEST IS COMPLETED. 
TO REPEAT TEST, PRESS 1131 START BUTTON. 


PRINTOUTS C:IORE) 


COPPENTS 
TRE TESTIAG METHOD 1S ACCOMPLISHED OE CF TWO WAYS. 


le &F THO SYSTEM JS EQUIPPED WITH DISK STORAGE, 7-2 SECONOS OF EACH 
72 SECC’D CELAY LIGP wILL BE LSTD TO ACCESS THE O!ISK CARRAIGE. 
THIS CKECKS THE CIRCUITRY TO THE "USE METER® FROM THE *SEEK® 
CIRCUITS.» THE REMAINING 64.8 SECUND DELAY IS ACCOMPLISHED BY — 
ADD'TICM IN THE ACCUMULATUR. 7.2 SECONDS = ONE DIVISION ON THE 
SUSE VETER. 


2e JF THE SYSTEM IS NOT EQUIPPED WITH DISK STORAGE, THE ENTIRE 72 
SECOND TELAY IS ACCOMPLISHED IN THE ACCUMULATOR. 


O2JAN66 


O- 415490 PAGE 


PART NO. 


PROG ID 


2191250 


2A 


0304-0 | 
2A 








a Se a See 
METER TEST 
02B8C 
OLF4 00 6500025E 
O1F6& OO 60000009 
O1F8 OC 65000263 
O1FA 00 6DO0000A 
O1lFC 00 65000268 
O1FE Of 6DOOGONC 
0200 0 6220 
0201 0 6107 
02C2 00 C4000270 
0204 0 D200 
0295 0 7201 
0206 0 TIFF 
0207 O TOFC 
0208 00 C400026E 
020A 0 D200 
020B 0 30c01 
O20C 0 0865 
0200 Q C078 
O20E 0 DOTA 
O20F 0 1801 
0210 0 DOT6 
O211 0 1801 
0212 0 DO75 
0213 0 CO75 
G214 0 4804 
0215 0 7017 
0216 0 3C02 
0217 0 O85A 
0218 00 67800286 
O21A 0 CO6C 
O21 0 4804 
O21c O 7007 
0210 0 CO6A 
O2Z1E 0 4804 
O21F O 7009 
0220 0 C068 
0221 0 4804 
0222 0 7:325 
0223 C 7018 
0224 0 O84F 
0225 0 3003 
0226 0 4804 
0227 0 TOFD 
0228 0 T0°4 
0229 0 O84C 
Oc2A 0 3004 
DATE O2JAN66 
EC NJ. 415490 


IBM MAINTENANCE OFAGNOSTIC PROGRAM 





FOR THE 1130 SYSTEM 


ABS 

ORG 500 
f 
KERKEEHHSESSEHESAEESESEREES SHEER EESEESEEESEE SEES 
* INTERRUPT TRANSFER VECTORS s 
SHESKEKHHK KSSH ESE SSESSSSEKS SRE SSHES HERES SSESEEE 
BEGIN LOX Ll INT 

STX L121 40009 

tOx Li INT2 

STX tl /000A 

tOx 1 INTS 

STX L1 /000C 
* 
ELECERHESE SSH TSEEHE ESSE SESSH EE SEKESEESEEREEEEE 


* CLEAR 1132 SCAN FIELD * 
SOCRHHKKEKSSE SLE SESS SAS SSEHHSSSESSSESKEKE SKE SEO EEE 
LOX 2 32 
LOX 17 


LD L OS®R} 
CLEAR STO 2 


SET ACC TO O 
SET PRINT AREA TO O 


MDX 21 

MOX i -1 

MOX CLEAR 

LD it HOME 

Sto 2 SET 2OC 39 TO 0001 


THEKSKSESKES SSH EST TSSS SESE SSSESHESEKES HOLE STH SEEKS 
* READ THE CONSOLE ENTRY SWITCHES TO 
* DETERMINE THE SYSTEM CONFIGURATION 


. BIT 15= DISK 
- BIT 14= 1462 
* BIT 13= 1132 


SSSEKEEHSSSESCKE SSSI SETS HESS SES SEKES TERE SEE SESE 
WAITL WAIT i ENTER SYS CONF. 


x10 CESWS 
LO COUNT 
sto DISK1 
SRA 1 

Sto SRP1 
SR4& l 

STO PRTR2 
LD DISK} 
BSC E 

MOX DISK 


& 
KEKKEKSESESHHEEKSTCSSSSE SSE SSESRSSSESESKKEEKESKESSSEE 


* READ THE CONSOLE ENTRY SWITCHES 


-& START THE 1132 ANO THE 1442 METERS 
FERRE SERES EEE EEKESSSEHEES EESESEESSERSERESES 


WAIT2 WAIT 2 ENTER NO OF OLY LOOPS 
SENSE XIO CESWS SENSE CON ENTRY SWS 
LOx 13 COUNT XR3= LOOP COUNT 
LO SRP} 
BSC E 
MDX SRP2 START 1442 
SNS LO PRTR2 
BSC E 
MDX PRTR3 START 1132 
SNS2 LD DISK 
BSC E 
MDX TESTO 
MOX A001 
SRP2 XIO SRP START 1442. 
WAIT3 WAIT 3 NO RESP. FROM 1442 
8SC E IS 1442 READY 
MDX WAITS 
MOX SNS1 
PRTR3 XIO PRTR START 1132. 


WAITS WAIT 4 NO RESP. FROM 1132 | 
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UMTO0000 
UMTOO0010 
UMTO0020 
UMT00030 
UMTO00040 
UMTO00050 
UMTOO060 
UMTOQO070 
UMTOOO8O 
UMTOO00S0 
UMTOOL00 
UMT00110 
:MT00120 
UMTOO130 
UMTO00140 
UMTOOLSO 
UMT00160 
UMTO00170 
UMT00180 
UMTO0190 
UMTOO200 
UMTO0210 
UMTOO220 
UMT00230 
UMT00240 
UMTOO250 
UMTO0260 
UMTOO2T0 
UMTOO280 
UMTO00290 
UMTO0 300 
UMTOO310 
UM700320 
UMT00330 
UMT00340 
UMTO00350 
UMT00360 


UMT00370 


UMTOO380 
UMTO00390 
UMTO00400 
UMT00410 
UMTO00420 
UMT00430 
UMT00440 
UMT00450 
UMT00460 
UMTO00470 
UMT00480 
UMT 00490 
UMTO00500 
UMTOO510 
UMTO00520 
UMT00530 
UMT00540 
UMT00550 
UMT00560 
UMTOO0570 
UMTOO580 
UMTOO0S5S9O 
UMT00600 
UMTOO610 
UMT00620 
UMT00630 
UMTO0640 
UMTO0650 
UMT00660 
UMTO00670 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


METER TEST 

0228 0 084C 
022C 0 TOFS 
022D 00 0C000270 
O22F 0 1002 
0230 00 4C289227 
0232 0 1002 
0233 00 4€280216 
0235 OC OCCO026E 
0237 0 3006 
0238 0 1004 
0239 0 4810 
O23A 0 TOFA 
0238 O 7ODA 
0230 O 6148 
0230 0 CO4C 
O23E O 802F 
O23F 0 4820 
0240 0 TOFD 
0241 G TIFF 
0242 0 TOFA 
0243 0 T3FF 
0244 0 T0FT7 
0245 0 3005 
0246 00 4C000217 
0248 0 0831 
0249 0 3C00 
O24A 0 0831 
024B 0 3000 
024C O 082D 
024D 0 3000 
O24E 90 0820 
O24F 0 3000 
0250 0 0820 
0251 0 3000 
0252 0 0820 
0253 0 3000 
0254 0 CO1B 
0255 0 613C 
0256 0 8017 
0257 0 4820 
0258 GQ TOFD 
0259 0 TIFF 
025A 0 TOFB 
0258 O T3FF 
025C 0 TOEB 
0250 0 TOE7 
O25E 0001 
O25F 00 0C000284 
0261 00 4CCO025E 
0263 0001 
0264 00 0C000270 
DATE O2JATi66 
EC NO. 415490 


x10 —PRTRI STOP THE 1132 INTR 


MDX SNS2 
x 
SESCKECKSKEEEH SEES ES EEE KEEEEESE SESE TESESSESESSES 


* SET DISK TO HOME . 
SEKKEEKERSESEEREKEEESSS OHEEEESS HERESESSESEE ESSE 


DISK XIO tL OSWRI IS DISK ROY 
SLA 2 
BSC LL WAIT6,+2 IF NOT RDY GO TO WT6 
SLA 2 
BSC L WAIT2 +2 IS CARR HOME 
SEEK XIO L HOME SEEK -1 CYL 
WAITS WAIT 6 DISK NOT READY 
SLA 4 
BSC = 1S CARR HOME 
MOX SEEK 
MOX WAIT2 


SKKKCKSEKKE KES KK ESCECSESES SHESI SSH ISSESHKOSRIKESHESS 


* METER TEST 
* 72 SECOND DELAY USING ONLY THE CPU 


STCKKEKSRKESHSESSHESKKSESSSSSSKSESCS HSE SSSES SY TESTS SC SES 


ADDL ULDX 1 72 CONSTANT 

AO0D2 to NUM 

AODO3 A HOME ADD 1 TO ACf.UM 
BSC rd 
MOX A003 ‘ 
MDX 1-1 MODIFY CONSTANT 
MOX ADD2 
¥OX 3-1 MODIFY LCOP COUNT 
MDX ADD1 


WAITS WAIT 5 ENO OF TEST 


BSC tL SENSE 


HHESECETKS ESEKASHSSELESS HEEKETS SSEKASESRE SESE STSTSS 
* METER TEST 


* 72 SECOND OELAY USING THE 914SK AND THE CPUS 
PEKEEKEKESKSESSEEESKS SSE ES ESET SCE TEHRESSEESSESEE SESE 


TESTO XIO OLY] SEEK#2C2 CYL 

WAIT 

X10 DLY2 SEEK-202 CYL 

WAIT | 

x10 DLY1 SEEK*202 CYL 

WAIT 

X10 DLY2 SEEK-202 CYL 

WAIT 7 

x10 DLY3 SEEK*+76 CYL 

WAIT 

x10 DLY4 SEEK-76 CYL 

WAIT 

LD OSWRL CLEAR ACCUM 

LOX 1 60 CONSTANT 
ADD A HOME ADD 1 TO ACCUM 

BSC z 

MOX ADO 

MDX 1 -l MODIFY CONSTANT 

MDX ADD | 

MOX 3 -1 MODIFY LOOP COUNT 

MDX TESTO 

MDX WAITS 
& 
SSSKKKSSESEKSESES SKE KEKE KKSESKSHAKSTCS SFE SKSSSESESESTSESESESLS 
* INTERRUPT SUBROUTINES * 
SKESKKEKEE KKKCKASKSSE SKS SKEKKEKhSKESSESEKEEESEKEAECES 
INTL 8SS 1 1132 

X10 L DSwWR3 SENSE DSW 

BOSC f INTL 
INT2 BSS 1 DISK 

X10 L DSWRL SENSE DSW 
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UMT00680 


_UMT00690 


UMTO0O700 
UMTOOT10 
UMT00720 
UMTOO730 
UMT00740 


UMTOO750 | 


UMTOOT60 
UMTOOTTO 
UMTOO780 
UMT00790 
UMTOO800 
UMTOG810 
uMTO0820 
UMTO0830 
UMT00840 
UMNTOO850 
UMTO0860 
UMTOO&70 
UMTOO880 
UMT90890 
UsT00900 
UMTOO910 
UMTO00920 
UMTOC930 
UATSO940 
UMTOO0950 
UMTO00960 
UMTO00970 
UMTOO980 
UMTO00990 
UMTO1000 
UMTO1010 
UMTO1020 
UMT01030 
UMTO1049 
UMTO1050 
UMTO1060 
UMTO1070 


UMTO1080 © 


UMTO1090 
UMTOL100 
UMTOL1I10 
UMTO1120 
UMTO1130 
UMTO1140 
UMTO1150 
UMTO1160 
UMTO1176 
UMTO1180 
UMTO1190 
UMTO1200 
UMTO1210 
UMTOL220 
UMTO1230 
UMTO1240 
UMTOL250 
UMTO1260 
UMTO1270 
UMT0O1280 
LMT01290 
UMTO1300 
UMTO1310 
UMTO01320 
UMTO1330 
UMT01340 
UMT01350 
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18M MAINTENANCE DIAGNOSTEC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191248 [BM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191248 
| | PAGE 2. . a | | PACE 2a 
METER TEST , METER TEST 
si 
0266 90 4CCC0263 BOSC 1 INT2 UMT01360 = I CROSS REFERENCE LISTING 
0268 0001 INT4 BSS 1 1442 UMT01370 
0269 99 OCCND282 X10 L OSwR2 SENSE DSW UMTO1380 SYMBOL VALUE REFERENCES 
026B 00 4CC00268 BOSC 3 INT4 UMT01390 ° ADD 0256 0258,025A 
® UMTO1400 : 7 AOD1 023C 022320244 
REKEKSEESSSSESESESEESESSESKEESS SEE SEECS THESE ESEHKSEES UMTO1410 AODD2 023D 0242 
* 1/0 CONTROL COMMANDOS AND CONSTANTS * UMT01420 : ADD3 O23€ 0240 
SHESSSSCSSSHLESSESISESSSSSSESSSESESESKHSSSESKLE SSE EESESE UMT91430 al BEGIN OLF4 0288 
O26E 00c0 BSS E 0 UMT01440 CESWS 0272 020C,0217 
0266 O OCcol HOME OC 40001 10CC TO SEEK HOME UMT01450 - CLEAR 0204 C207 
O26F 0 2404 oC 12404 UMTO1460 . COUNT 0286 0200 20218.0272 
0270 0 0000 OSwR1 OC /C000 IOCC TO SENSE AND UMTO1470 DISK 022D 0215 
0271 C 2701 DC /2701 RESET OLSK UMT01480 = DISKL 0289 O20E 9021320220 
0272 0 0284 CESWS DC COUNT IOCC TO RO CE SWS UMT01490 | DLY1 O27A 0248,024C 
0273 0 3A00 OC 3400 UMT01500 DLY2 027C 024A2024E 
027% O acco SkP OC 70000 {OCC TO START 1442 UMTO1510 : DLY3 O27E 0250 
0275 © 142 OC 11402 METER UMTO1520 DLY4 0280 0252 
0276 0 0000 PRTR OC /0G00 1OCC TO START 1132 UM701530 OSWRL 0276 0202 ¢1:220 9025440264 
0277 0 3480 oc 13480 METER U4T01540 OSWR2 0282 0269 
0278 0 000 PRTR1 OC 0000 IOCC TG STOP 2132 UMTG1550 OSWR3 0284 025F 
0279 0 3440 OC 13440 EMIT INTERRUPTS UMTO1560 HOME O26E 0208 90235 2023E 20256 
027A 0 OOCA DLYl OC /O0CA 1OCC SEEK TO 202 UMT01570 INT} 025€ OLF 4,026] 
0278 0 2400 oc 12400 FRUM HOME UMTO1580 INT2 0263 O1F 80266 
O27C C OOCA DLY2 oC /O0CA 10C2 SEEK TO HOME UMTO1590 INTS 0268 O1FC 60268 
0270 GC 2404 OC 124C% FROM 202 UMTO1600 NUM 028A 0230 
O27E 0 N04C DLY3 OC /004C IOCC SEEK TO 076 UMTO1610 PRIR 0276 0229 
O27F 0 2400 pc 12490 FROX HOME UMTO1620 PRTR1 0278 0228 
0280 0 004C DLY4 OC /004C 10CC SEEK TO HOME UMT01630 PRTR2 0288 0212+6210 
0281 0 2404 OC 12404 FKOM 076 UMT01640 PRTR3 0229 O21F 
0282 0 ocO00 DSWR2 DC /0000 IOCC TO SENSE AND UMT01650 SEEK 0235 023A 
0283 0 1702 oc 41702 RESET 1442 DSW UMT01660 SENSE 0217 0246 
0284 0 000 DSWR3 OC 0000 TOCC TO SENSE AND UMT01670 SNSI1 021C 0228 
0285 0 3701 oc 43701 RESET 1132 DSW UMT01680 SNS2 0220 022C 
0285 0 0000 CIUNT OC /0C00 CON ENTRY SW SETTING UMTO1690 SRP 0274 0224 
0287 0 0000 SRP1 GC 00c0 SYSTEM HAS 1442 UMT01700 SRPL 0287 0210,021A 
0288 0 0000 PRTR2 OC GO000 SYSTEM HAS 1132 UMTO1710 SRP2 0224 021C 
0289 0 ocod DISK1 DC o0co SYSTEM HAS DISK UMTO1720 TESTO 0248 02222025C 
0288 0 1340 NUM OC 11340 UMT01730 WAITL 0208 
028C O1F4 END BEGIN UMTO1740 WAIT2 0216 02330238 : 
WAIT3 0225 0227 
WAITS 022A 
WAITS 0245 025D 
WAIT6 0237 0230 
ae, 
ry 
. A 
DATE O2JAN66 PROG ID 03A4-0 4 DATE O2JAN66 © | | PROG ID 03A4-0 — 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


CORE ACJUSTMENT TEST 


PARAGRAPH 


le PURPOSE. 


CORE STORAGE ACJUSTMENT TEST 


TAGLE 


e@ e oe 68 @ é +d e eo @ ®@ 


26 PREREQUISITES. 3 @ ¢ © &@ 0 3 eo 


2el 
202 


PROGRAP PREREQUISITES 


EGUIFMENT PREREQUISITES 


3e USE PROCECURE. « o 


4&e PRINT 


Se COPMENTS eo é#@ @ 


6. APPENDIX (NONE) 


OATE 


 €C NO. 


OUTS (NONE) 
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IBM MAINTENANCE DIAGNUSTIC PROGRAM FOR THE 1130 SYSTEM | —— PART NO. 


PAGE 


& 


CCRE STORAGE ACJUSTMENT TESF 


le PURPOSE 


23 PREREQU 


2-1 


3 USE PRO 


3.1 


302 


THE CORE ANSUSTMENT PROGRaM LCADS CGRE WITH THE BEST CORE PATTERN 
(BCP) SPECIFIED IN THE ENGINEERING SPcCIFICATIONS FOR SJ-2 STORAGE. 
THIS ALLOWS ADJUSTMENT OF THE CORE VOLTAGES AS SPECTFIED IN THE 1130 
MAINTENANCE PANUAL. 


ISITES | 
PROGRAM PREREQUISITES 


THE CORE ACAUSTMENT PROGRAM IS LOADED BY THE 1130 BASIC DIAGNOSTIC i 
LO ACER. 


COUIPMENT PREREQUISITES 


ae L131 CPUs 
be 1442 UR 1054 READER. 


CFCURE 
PRCGR4AM LOADING 


lo PLACE CARDS/PAPER TAPE IN READER. 

2- MAKF REACER READY. 

Ze PRESS THE 1131 RESET KEY. 

4. PRESS ThE 1131 PROGRAK LOAD KEY. 

©. {F PROGRAM FAILS TO LUAD OR STOPS AT A WAIT BELCW LOCATION 
U12C, REFER TO BASIC LOADER DELUEENTR I SECT. Je2e 


OPERATING PROCEDURE | 
le ORGGRAM WILL LOAD, RUN BRIEFLY, THEN STOP AT END-OF-PROGRAM 
WAIT 30FF AT LOCATION G149. 
2. REFER TC 1230 MAINTENANCE MANUAL SECT. @ FO® CORE ADJUSTMENT 
PROCEOQURES 6 
3 PROGRAM MAY &E RERUN BY PRESSING PROGRAM START WHILE AT 
END-OF—-?ROGRAM WAIT. 


&3 PRINT OUTS (NONE) 


5e CCKFENT 


s 


THE CORE ACJUSTMENT PROGRAM eUee THF BESS CURE PATTERN IN ALL ee 
eNCATIONS AROVE O17C. 


THE SIZE CF CORE 15 AUTOMATICALLY DETERMINED BY THE ee 


THE CORE ADJUSTMENT PROGRA® SHCULD NOT BE EXECUTING WHILE THE 
CORE UNIT IS CEING ADJUSTED. 


DATE O2JAN66 | — 2a : | PROG 10 
EC NO. 415490°- es 4 mS | | PAGE 


a 


2191246 
1A 


D3A6-0 


1A 


IBM MAINTENANCE DIAGNOSTIC PFOGRAM FOR THE 1130 SYSTEM 


CORE ADJUSTMENT TEST 


ABS 
02BC ORG 300 
‘ | 
012C 0 1010 START SLA 16 
012D 00 D4000000 STO t O 
012F O COOA LD KON 
0130 0 DOOA STC SIZE 
0131 00 D4800138 AA STC JI SIZE 
0133 00 74000000 MDx L 0,0 
0135 0 7006 MD xX CONT 
0136 0 1001 SLA 1 
0137 00 04000138 STO Lt SIZE 
0139 0 TOF7 MDX AA 
013A 0 1000 KON NC /1000 
0138 0 0000 SIZE DC 0 
013C 0 COFE SONT LO SIZE 
013D 00 4C28014B BSC L NEGN,+t2 
O013F 0 903C S LAST 
0140 0 6001 sTo SETX+1 
0141 00 66000000 SETX LDX t2 0 
0143 00 65000170 LOX1l1 LOX Ll FIRST 
0145 00 4400014E REPT BSI Lt PLACE 
0147 0 T2FF Mn) Xx 2 -1 
01468 O° TOFC MDX REPT 
0149 0 30FF | WAIT -1 
014A 0 TOEL MDX START 
% 
014B 00 66007E82 NESN LOX L2 /TFFF-FIRST 
0149 0 TOFS MDX LDXi 
014E 0 oO000 PLACE DOC 0 
O14F 0 6925 STX 1 TLOC 
0150 0 C024 LD TLOC 
0151 QO 1003 SLA 3 
0152 0 4828 BSC +7 
70153 0 701B Fs MDX CER 
"0154 0 co2z0 ~ =" LD TLOC 
0155 0 £020 © |. ‘AND... CONL 
0156 0 £020 | EOR CON2 
0157 OO 4C18016D - BSC L LD1S,+- 
0159 0 CO1l6B = =: © LOD TLOC 
015A 0 €E01D AND CON3 
0158'0 FOID. | os OR CONS 
~OLSC OO 4C18016D = ~— BSC L LDISet- 
“-015E 0 1830 -- LOZS SRA 16 
O1S5F 00 04800175: . STO 1: TLOC 
0161 0 Cols Lo TLOC 
- 0162 0 EOI? |: AND CONS 
0163 0 4818 — 2 ys SC +- 
0164 0 +7005 a “DX DONE 
~~ 0165 00° C4800175 tO 1 TLOC 
0167 0 FOI3 EOR CONG 
0168 00 04300175 . STO ¥ TLOC 
' 016A 0 °7101 -.* DONE MDX 1 1 
0168 00 4C80014E ~ BSC I PLACE 
 016D 0 coodD . -LDLS: LOD CON6 
Cl6E 0 TOFO - MDX LDZ2S+1 
 O16F O COCs ~  FX3 LOD TLOC 
-0170°:0 €005 ©” AND CON1 
0171 0 FOO4 EOR CON1 
"0172 00 4CLBOLSE ~ BSC L LOZSe+- 
0174 O 7O0F8 MOX iD15S 
0175 0 0000 TLIC DC 0 
0176 0 OFOO CON1L C /0F00 
O17? 0 O100' — ZON2 DC /0100 
0178 GO OFSO CON3 OC /O0FB0 
0179 0 O760 CONS DC /0780 
017A O 0040 — CONS DC £0040 
V6 
BeTfin. 23888 bESBESS 


FIND CORE SIZE 


SET X2 = NO. LOCS TO 

* PLACE DATA 

SET A PATTERN 

CK FOR DONE ALL CORE 

NO 

MONE ALL CORE, END PROG 


PLACE PATTERN SUBRT 


GET TEST LOC ADDR 


SKIP IF X3 = 0 


CONl /OFOO 
CON2 /010C 
BRNH IF X4&X5X6X7 = OO01 


CON3 = /0F80 
CON4 = 4/6780 
BRNH IF X4X5X6X7X8 =O1111 


CONS = /0040 
SKIP IF v9 = 1 


CON6 = /FFFF 


EXIT FROM SUBRT 
CONG = /FFFF 


CON1 JOFOO 
CON] 40F O00 
BR IF X4xX5X6X7 = L111 


PART NO. 


P AGE 


ADJoon00 
ADS 00010 
ADJ00020 
ADJ00030 
ADJ00040 
ADJ 00050 
ADJO00060 
ADJO0007T0 
ADJO0080 
ADJ00090 
ADJ00100 
ADJ00110 
ADJ00120 
ADJ00130 
ADJ00140 
ADJ00150 
ADjJ00160 
ADJ00170 
ADJO0180 
ADJ00190 
ADJ00200 
A9J00210 
ADJ00220 
ADJ00230 
ANDJ00240 
ADJ00250 
ADJ00260 
ADJO0270 
ADJ00280 
ADJ 00290 
ADJ00300 
ADJ00310 
ADJ00320 
A0J00330 
ADJ00340 
ADJ00350 
ADJ00360 
ADJ00370 
ADJ00380 
ADJ00390 
ADJ00400 
ADJ00410 
ADJ00420 
ADJ00430 
ADJ00440 
ADJ00450 
ADJ 00460 
ADJ00470 
ADJ00480 
ADJ00490 
ADJGO500 
ADJ00510 
ADJ00520 
ADJ00530 
ALJ00540 
ADJ00550 
ADJC0560 
A9J00570 
ADJO0580 


. ADJON590 


AQJON0600 
ADJO0610 
ADJ00620 
A9J00630 
ADJ00640 
ADJ00650 
ADJ00660 


— “ADJO06TO | 
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CORE ADJUSTMENT TEST 


O17B 0 
017C O 
0170 0 
O1L7TE 


DATE 
EC NO. 


FFFE 
017D 
0000 
012C 


02 
41 


J 
5 


AN66 
490 


CON6 DC 
LAST DC 
FI2SF DOC 


ENO 


1SNOV66 
419643 


/FEFF 
FIRST 


START 


FIRST LOC 


Kor 
OF PATTERN 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


CORE ADJUSTMENT TEST 


CROSS REFERENCE LISTING 


SYMBOL 
AA 
CUNT 
CON1 
CON2 
CON3 | 
CONS 


CON5 


CONS 
DONE 
FIRST 
FX3 
KON | 
LAST 
LDX1 
LOZS 
LD1S 
NEGN 


REPT 
SETX 
SIZE 
START 
TLOC 


VALUE 


0131 — 
013C 
0176 


O17? 


0178 
0179 


O1TA 


0176. 
OLGA 
017D 


O16F 


O13A 
O17C 
0143 
O1S5E 
016D 


0148 
PLACE 


O14E 
0145, 
0141 
0138 
012C 
0175 


REFERENCES 
0139 . 

0135 

0155, 0170,0:171 
0156 

O15A 

0158 

0162 

0167, 016D 

0164 

0143, 0148,0:.7C 
0153 

012F 

O13F 

014D 


-016E, 0172 


0157, 015C ,0:.74 
013D | 
0145, 0168 

0148 

0140 


0130, 0131,0137,013C © 


014A, 017E 


O14F » 0150, 0154, 0159-0 15F 90161 »0165,0168 ,016F 


ee a4 


rerio 


PART NOe 2191244 
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PROG 
PAGE 


ID 


03A6-0 
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TBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


CORE ADJUSTMENT TEST 


CROSS REFERENCE LISTING 


SYMBIL VALUE 
AA 0131 
CONT OL3C 
CONI 0176 
CON2 O177 
CON3 0178 
CON4 0179 


CONS OLTA 
CONG 0178 
DONE 016A 
FIRST 0170 
FX3 OL6F 
KON OL3A 
LAST O17C 
LOX} 0143 


LOZS O15E 
LOIS 016D 
NEGN 0148 
PLACE OL4E 
REPT 0145 
SETX 0141 
SIZE C138 
START. O12C 
TLOC 0175 


DATE O2JAN66 
EC NO. 415490 


REFERENCES 
0139 

0135 
0155,0170,0172 
0156 

C1SA 

0158 

0162 


_0167,0160 


0164 

0143,017C 

0153 

O12F 

O13F ,0148 

014D 

O16E.01 72 

0157,015C ,C1 74 

0130 

0145,016B 

0148 

0140 

0130,0131,0137,013C 
0O14A,017E 
0O14F 00150,0154,-0159-015F ,0lol .0165,0168,016F 





\ i ? ; 
had — St - He, 
z 
PART NO. 2191244 
PAGE 2 S 
i) 
a: 
3 
@ 
@ 
PROG ID 03A6-0 
PAGE 2 
@ 
e 


<n cee werpenre saat ante srt ASME ean may cee covey squint PUMA ath Pattee rte OA TSA vat SpripttPt the yay Avbterttome pet NIN mere atone 





peering ces pA RR te tet ga et RRR TERNAL AEA RAE EEE OL ety sect me 


SoS Mem peng yee 


eee pr ee See AR RTE PN aT ENTE SOT ot apt 


hot ee 


Denti iperttitons en nee I EER PEEP AT A CEN OO rE Pet SO EN er meet tA MAE te ree 


eteiamet 


_— 
a ra s 
‘ r / 

‘ ( } 
| | 

\ | \ 

% > . = * “ ~. ea 
=u “ — NS. e ~ - ae ee 
yi Se , ee 
# a ” a0 prere 
cece rman: vein cont se nagsenens ne cocina angen igh APS Ne ef AOC A I ERM IR NA AO OL A EC TEER EN IG A IY EA A A ANTI oe ageencreeant tt 


+ Aten ee HARMEN eR I ES 


ao 


eee 


SEIN Rete ore srt wh 











e 

VY 

| 

\ i 

\ = : 
A 


ie 


a pe ; a s ae eu oo, = 


1B’: MAINTENANCE Oren AG PROGRAM FOK THE 1130 SYSTER 
1130 INTERRUPT TEST 


PART NO. 2191270 
PaGE ——s_: 0001 


‘TABLE OF CONTENTS 


PARAGRAPH | PAGE 0001 


le 
Ze 


30 


40 


Se 


66 


le 


20 


30 


. DATE... OLMAY66 
EC NO. 15490 


PURPOSE ie eo eo eoec eee eee wee eee ° ete ter S) Ge. ee 


PREREQUISITES. oc ow cee wre c ec c es eseresceesce 


201 PROGRAM PREREQUISITES | 
202 EQUIPMENT PREREQUISITES 


3.1 PROGRAM LOADING © 
32 PROGRAM OPERATIONS 
3.3. WAITS AND LOOPS 

3.4 CoE. SCOPE OPTIONS 
PRINTOUTS (NONE) 


PROGRAM PHILOSOPHY ® @eeec8ce8f @ @ o eoeoeee@e8 @ e eoeooeee8 @ 


APPENDIX (NONE) 


PURPOSE 


THE 1130 INTERRUPT TEST PROGRAM IS DESIGNED TO ISOLATE INTERRUPT FAILURES 
WHICH COULD PREVENT THE LOADING OF OTHER PROGRAMS WITH THE BASIC DIAGNOSTIC 
LOADER IN THE "LOAD AND GO MODE.* THE PROGRAM EXECUTES 2 BASIC TESTS OR AN 
AUTOMATIC LEVEL RESET LOOP FOR SCOPING THE CAUSE OF A LEVEL NOT BEING RESET. 
TEST 1 ES RUN ON ALL OEVICES AND CHECKS THE BASIC OPERATION OF THE INTER 
RUPT FORCED BRANCH, THE PROPER EXECUTION OF A LEVEL & INTERRUPT, AWD 
FSOLATES INTERRUPT LEVELS WHICH ARE NOT BEING RESET. ? 


TEST 2 1S RUN ON THE 1442 READER AND CHECKS THE PROPER EXECUTION OF A 
LEVEL 4 INTERRUPT IN CONJUNCTION WITH A LEVEL O INTERRUPT, THE ARRIVAL OF 
AN END OP EITHER TOO SOON OR TOO LATE IN CONJUNCTION WITH THE COLUMN 
INTERRUPT, AND PROPER EXECUTION OF A LEVEL O INTERRUPT. 

BOTH.TESTS FROVIDE ERROR WAI "Se ERROR LOOPS, AND SCOPE LooP ROUTINES To 
HELP DIAGNOSE THE FAILURE AND AID IN A QUICK REPAIR. 


THE AUTOMATIC LEVEL. RESET LooP MODE | Is. FOR SCOPING THE RESET PROBLEM AND A 
WAIT INDICATE. THE RESETTING -OF THE INTERRUPT» Ie 1T OCCURS. 


PREREQUISITES 
201 PROGRAM PREREQUISITES 
1130 BASIC DIAGNOSTIC LOADER. 
2-2 EQUIPMENT PREREQUISITES, Pra ae 
CARD READER OR PAPER TAPE. READER. ie 
OPERATING PROCEDURES ee : 
3.1 PROGRAM LOADING | 
1. THE 1130 INTERRUPT TEST IS 'OADED BY THE 1130 BASIC DIAGNOSTIC 


15APR67 
419605 


1S JUN67 PROG 1D 03A86-2 
420317 ee PAGE | 0001 
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PART NO. 
PAGE 


1130 INTERRUPT TEST 


302 


DATE 


EC NOe 





20 
36 


LOADER. : 
SET THE C. Es INTERRUPT DELAY SWITCH TO THE *ON* POSITION. 


SEE BASIC DIAGNOSTIC LOADER DOCUMENTATION FOR LOADING PROCEDURE. 


PROGRAM OPERATION 


le 


De 


Se 


AFTER THE PROGRAM IS LOADED, A WAIT OF WILL OCCUR. AT THIS TIME, 


THE 1/70 DEVICE BY WHICH THE PROGRAM WAS LOADED, AND THE PROGRAM 
MODE ARE TO ‘BE SELECTED VIA THE BIT SWITCHES. SEE TABLE Ae WAIT 
le 


THE REASON THE DEVICE WHICH LOADED THE PROGRAM MUST BE SELECTED, 
IS THAT WITH THE C.E. INTERRUPT DELAY SWITCH IN THE ON POSITION, 
THE BASIC LOADER GENERATES A LEVEL & INTERRUPT WHICH CAN NOT BE 
SERVICED. WHEN THE CE. INTERRUPT DELAY SwITCH IS TURNED OFF, TH 
LEVEL 4 INTERRUPT MUST BE SERVICED BEFORE ANY OTHER INTERRUPT CAN 
BE EXECUTED. ga 


IF THE PROGRAM DETECTS NO ERRORS» AND THE “AUTOMATIC. i. coPp RESET 


MODE IS NOT SELECTED, THE PROGRAM WILL HaLT AT WAIT & IFA 
RERUN OF THE PROGRAM TS DESTIREDs DEPRESS START. 


ALL OTHER. WAITS AND LOOPS ARE EXPLAINED IN TABLES Ay By AND C 
OF 3e30 , 


TO GO INTO A SCOPE Loop AFTER A FAILURE HAS BEEN DETECTED, | 
DEPRESS START. THE SCOPE LOOP IS SET UP FOR A 2 FEED/CYCLE PER 
SECOND RATE, AND A WAIT AFTER 100 FEED CYCLES HAVE BEEN EXECUTED. 
THE CE. HAS AN OPTION TO CHANGE THESE VALVES. (SEE 324) 


WAITS AND LOOPS 


le 


O1MAY66 
415490 


TABLE A ~ TEST 1 WAITS AND SCOPE LOOPS - 


WAIT O--OP CODE 0000. NO TRANSFER TOOK PERCE, TEOR 1/0 8USS 
~ ‘TO B REG. LOGIC KM201. 


WAIT F——* INITIAL? DEVICE SELECTION AND PROGRAM aon eclesiane 
"Be . MAKE PROGRAM READ IN DEVICE REAOYs | 


‘Be. SELECT PROGRAM READ IN DEVICE, USING BIT SWITCHES. 
+e7 ly OR 2 AS FOLLOWS, 


ane BIT. O-ON AND BITS - YL: AND: 2. OFFe. 1442 ‘READER: 
2- BIT 1-ON AND BITS O AND 2 OFFee PeT. READER 
ae BIT: 2-0N AND BITS 0 AND l OF Fee 2501 READER 


ECE FR aUTOMATIC: RESET MODE IS° DESIRED, SELECT ~ 
LEVEL INVOLVED, USING BIT SWITCHES 4% THROUGH 
(TAS FOLLOWS. 


Le LEVEL 0-817 4 
20 LEVEL 1-817 7 
3e LEVEL 2-BIT 6 
4e LEVEL 3-BITS 6 AND 7 
5. LEVeL 4-BIT 5 
6+ LEVEL 5-BITS 5 AND 7 
Te NO BITS SELECTED - LEVEL AUTOMATIC 
RESET MODE WAS NOT SELECTED. 


—~O. DEPRESS ‘START. 
WAIT 1-—DEVICE SELECTION 


LSAPROT 


1S JUN67 PROG 1D 
£19605 


420317 PAGE 
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1130 INTERRUPT TEST. 


DATE 
EC NO. 


HALY 


walt 


WAIT 


WAIT 


WAIT 


WAIT 


. WAIT 


WAIT 


WAIT. 


WAIT 


WAIT 


GIMAY66 
415490 


WAIT 


WAIT 


~ DSAPRET 
419605 


PART NO. 
PAGE 


“As MAKE DESIRED DEVICE READY. 


‘Be SELECT DESIRED DEVICE, USING BIT SWITCHES 0, 1» OR 2° 


_ AS: FOLLOWS. TURN OFF BIT SW Be IF ON, 
le OIT 0-ON AND BITS 1 AND 2 OFF... 1442 READER 
2e BIT 1-ON AND BITS O AND 2 OFF... PT. READER 
-3e BIT 2-ON AND BITS O AND 1 OFF... 2501 READER 


Ce. DEPRESS START 


2-—DESIRED NUMBER OF FEED CYCLES. DURING SCOPE LOOP, MAKE SUR 
THERE ARE ENOUGH CARDS OR TAPE TO MAKE ANOTHER PASS. 
PUSH START TO CONTINUE SCOPE LOOP. 


3--DEVICE WENT NOT READY. LOAD CARDS OR TAPE AND PUSH 
START TO CONTINUE. : | 


4—DEVICE TESTED, RAN SUCCESSFULLY. 


TO RERUN TEST, OEPRESS 
START. | 

S--THE 1442 IS THE DEVICE SELECTED ON WHICH THE TEST WILL 
BE RUN. IF SOME OTHER DEVICE IS DESIRED, AND THIS IS 
NOT THE INITIAL WAIT 5, MAKE NEW SELECTION, USING . 
CONSOLE ENTRY SWITCHES. (SEE WAIT 1) TURN INTERRUPT 
DELAY Sw. OFF IF IT IS ONs AND DEPRESS START IF PROG. 
DOES NOT START OPERATION BECAUSE OF A PENDING INTERRUPT. 


6--PAPER TAPE IS THE DEVICE SELECTED ON WHICH THE TEST WILL 
BE RUN. IF SOME OTHER DEVICE IS DESIRED, AND THIS IS 
NOT THE INITIAL WAIT 6, MAKE NEW SELECTION, USING 
CONSOLE ENTRY SWITCHES. (SEE WAIT 1) TURN INTERRUPT 
DELAY SW OFF IF IT IS ON» AND DEPRESS START IF PROG OOES 
NOT START OPERATING BECAUSE OF A PENDING INTERRUPT. 


J=—THE 2501 IS THE DEVICE SELECTED ON WHICH THE TEST WILL BE 
RUN. IF SQME OTHER DEVICE IS DESIRED, AND THIS IS NOT 
THE INITIAL WAIT 7,» MAKE NEW SELECTION, USING CONSOLE 
ENTRY SWITCHES. (SEE WAIT 1) TURN INTERRUPT OELAY SW OFF 
Tf FT 1S ON,» AND DEPRESS START IF PROG DOES NOT START 
OPERATING BECAUSE OF A PENDING INTERRUPT. 


B—-NO DEVICE WAS SELECTED. MAKE SELECTION USING CONSOLE 
ENTRY SWITCHES. (SEE WAIT 1) DEPRESS START. 


A~-1442 WAS DEVICE SELECTED AND IT WAS FOUND NOT READY. 
MAKE 1442 READY, AND DEPRESS START. 


B—PAPER TAPE READER WAS DEVICE SELECTED AND FOUND NOT 


READY. MAKE P.Te READER READYe AND DEPRESS START. 
WAS DEVICE SELECTED AND IT WAS FOUND NOT READY. 


AND DEPRESS START. 


C2501 
- MAKE 2501 READY,» 


11-NO INTERRUPTS GENERATED. PROGRAM IS CHECKING ABILITY TO 
SET RUN TRIGGER WITH INTERRUPT OCCURRING DURING A WAIT 
GP. TO FURTHER CHECK RUN TRIGGER WITH PROGRAM, PUSH 
START. | | | 


RUN TRIGGER HAS. BEEN ELIMINATED 
PUSH START. 


12-NO INTERRUPT GENERATED. 
AS CAUSE OF FAILURE. TO GO INTO SCOPE LOOP, 
LOGIC KM321- 


13-DROPPED ADOR BIT 13 WHEN GATING INTERRUPT ADDRESS FROM 
1/0 BUSS TO B REG DURING BSI 12 CYCLE.’ TO GO INTO SCOPE 
LOOP, PUSH START. LOGIC KM201. : 


14-A LEVEL 1 INTERRUPT ADORESS WAS GENERATED. TO GO INTO 


PROG 10 
PAGE 


15 JUN67 
420317 


2191270 


. 0002 


0348-6 
0002 


PX 


ee 


_ DATE 
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1130 INTERRUPT TEST 


SCOPE LOOP, ‘PUSH START. LOCKE KM201. 


WAIT 15-A LEVEL 2 INTERRUPT. ADDRESS” WAS. GENERATED. 


SCOPE LOOP, PUSH ‘START. LOGIC KA201. 


16-A LEVEL 3 INTERRUPT- ADDRESS” WAS GENERATED. 
SCOPE LOOP, nue START. ‘LOGIC KA201. 


WAIT 


WAIT 
BUSS TO B REG DURING BSI I2 CYCLE. 
LOOP, PUSH STARTs LOGIC KM201. 


WAIT 
BUSS TO B REG DURING BSI [2 ENCCE 
PUSH START. LOGIC KMZ201— 


WAIT 
BUSS TO B REG DURING BSI 12 CYCLE. 
PUSH START. LOGIC KMZOL6 © 


WAIT 
DURING 6S! I2 CYCLE. 
LOGIC KM201. 


TO GO INTO SCOPE LOOP, 


WAIT 

SUSPECT RUN TRIGGER IS NOT BEING SET. PUSHING 
CAUSE 1 FEEO CYCLE EACH TIME IT IS PUSHED. 
AN AUTOMATIC 


Loop LEVEL 0 ON-LEVEL 0 CANNOT BE RESET. 


IT- tOGIC KM201. 

LEVEL 1 ON-LEVEL 1 CANNOT BE RESET. AN AUTOMATIC 
LOOP IS SET UP WITH THE PROGRAM TRYING 
(TT. LOGIC KM201.~ 


LooP 


LOOP LEVEL 2 ON-LEVEL 2 CANNOT BE RESET. 
- LOOP IS SET UP WITH THE PROGRAM TRYING 


IT- LOGIC KM201. 


LEVEL 3 ON-LEVEL 3 CANNOT BE RESET. AN AUTOMATIC 
LOOP IS SET UP WITH THE PROGRAM TREENG 
ITe ‘LOGIC KM201e — | 


LOOP 


Loop LEVEL 5 ON-LEVEL 5 CANNOT BE RESET. AN AUTOMATIC 


LOOP IS SET UP WITH PROGRAM TRYING 10 RESET IT. 


LOGIC BNZOTs 


2e TABLE B - TEST 2 WAITS AND aerr Loops 


WAIT 21-NO INTERRUPTS WERE GENERATED WITHIN 500 MSEC. 
CARD IS FED. 
80 COLUMN INTERRUPTS AND AN END OF INTERRUPT. 
SCOPE LOOP, PUSH START. 


-T0 GO INTO 
TO GO INTO 


17-PICK ADOR BIT 15. WHEN: GATING INTERRUPT ADOR FROM 1/0 
TO GO INTO SCOPE 


1C-INTERRUPT OPERATION WAS NORMAL WHEN MASKING OUT WAIT OP. 


LOGIC KAl1Ole ~ | Y 


AN AUTOMATIC 


AFTER A . et 
THIS SHOULD HAVE BEEN ENOUGH TIME TO RECEILV 
TO GO INTO y 
IF AN INTERRUPT IS GENERATED © i: ce 


2191270 
00024 


PART NO. 
PAGE 





18-DROPPED ADDR. BIT. 12 WHEN. GATING INTERRUPT. ADDR FROM 1/0 
TO GO INTO SCOPE LOOP 


19-PICKED ADDR BIT 14 WHEN GATING INTERRUPT ADDR: FROM 1/0 
TO GO INTO SCOPE LOOP ) 


1A-NO INTERRUPT ADDR BITS GATED FROM 1/0 BUSS TO B REG y 
PUSH START. 


START WILL 


2 eee om nee mee meen rpen 


oCOPE 


LOOP IS SET UP WITH THE PROG TRYING TO RESET ee 


SCOPE y 
TO RESET. 


SCOPE. 
TO RESET 


SCOPE 
TO RESET 


SCOPE its ’ 


DURING THE SCOPE LOOP. A WAIT WILL: IOENTIFY IT Eee KM30— 


WAIT 22-NO LEVEL 4% INTERRUPT WAS GENERATED AFTER AT LEAST 1 


COLUMN INTERRUPT WAS RECEIVED. 
COLUMN INTERRUPTS IS DISPLAYED IN THE A REG. 

CAUSE COULD BE LEVEL O NOT BEING RESET. TO GO 
SCOPE LOOP, PUSH START LOGIC KM321. : 


THE ACTUAL NUMBER OF 
POSSIBLE 
INTO 


WAIT 23-MGRE THAN 80 COLUMN INTERRUPTS WERE RECEIVED WHEN END 


OP WAS GENERATED. THE ACTUAL NUMBER OF COLUMN 
IS DISPLAYED IN THE A REG. 


DEVICE EMITTER. TO GO INTO SCOPE LOOP, 


WAIT 24-LESS THAN 80 COLUMN INTERRUPTS WERE RECEIVED WHEN END 


LS JUNOT 
420317 


OLMAY66 
415490 


L5APRE6T7 


EC NO. 419605 


INTERRUPTS 


POSSIBLE CAUSE COULD BE 
PUSH START, 


PROG ID 


PAGE 


{ 
C3Aa6-2 | | 
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WAIT 


WAIT 


WAIT 


WAIT 


WAIT 

3. TABLE 
waLT 
“wart 
WAIT 
WAIT 


WAIT 


eis WALT, 


WAIT 


304. 


DATE. 
EC NO. 


OLMAYOO | 
415490 


LSAPROT 
419605 


eS 


2191270 
0003 


PART NO. 
- PAGE 


OP WAS GENERATED. THE ACTUAL NUMBER OF COLUMN INTERRUPTS 
IS DISPLAYED IN THE A REG. POSSIBLE CAUSE COULD BE 
DEVICE EMITTER. TO GO INTO SCOPE LOOP, PUSH START. 


25-INTERRUPT GENERATED CAUSE A LEVEL 1 ADDRESS TO BE GENE- 
RATED. POSSIBLE CAUSE COULD BE THAT ADDRESS BIT 15 WAS 
PICKED WHEN TRANSFERRING INTERRUPT ADDRESS FROM 1/0 BUSS 
TG 8B REG DURING I2 CYCLE OF A LEVEL O INTERRUPT. COLUMN 
COUNT IS DISPLAYED IN A REGe. TO GO INTO SCOPE LOOP, 
PUSH START. LOGIC KM201. 


26-INTERRUPT GENERATE CAUSE A LEVEL 2 ADORESS TO BE GENERATE 
POSSIBLE CAUSE COULD BE THAT ADDRESS BIT 14 WAS PICKED WH 
TRANSFERRING INTERRUPT ADDRESS FROM 1/0 BUSS TO B REG 
DURING 32 CYCLE OF A LEVEL O INTERRUPT. COLUMN COUNT IS 
DISPLAYED IN A REGe TO GO INTO SCOPE LOOP, PUSH START. 
LOGIC KH201. 


27-INTERRUPT GENERATED CAUSED A LEVEL 3 ADDRESS TO BE 
GENERATED. POSSIBLE CAUSE COULD BE THAT ADDRESS BITS 
14 AND 15 WERE PICKED WHEN TRANSFERKING INTERRUPT 
ADDRESS FROOM 1/0 BUSS TO B REG DURING I2 CYCLE GF A LEVE 
O INTERRUPT. COLUMN COUNT IS DISPLAYED IN A REG. TO GO 
INTO SCOPE LOOP, PUSH START. LOGIC KA201. 


28-INTERRUPT GENERATED CAUSED A LEVEL 3 ADDRESS TO BE 
PICKED WHEN TRANSFERRING INTERRUPT ADDRESS FROM 1/0 BUSS 
TO B REG DURING I2 CYCLE OF A LEVEL O INTERRUPT. COLUMN 
COUNT IS DISPLAYED IN A REG» TO GO INTQ SCOPE LOOP, 
PUSH START. LOGIC KM201~ 


29-BIT 12 WAS DROPPED WHEN TRANSFERRING INTERRUPT ADDRESS 
FROM 1/0 BUSS TO B REG DURING I2 CYCLE OF A LEVEL O 
INTERRUPT. COLUMN COUNT IS DISPLAYED IN A REG. TO GO INTO 
SCOPE LOOP, PUSH START. LOGIC KM201 


C - AUTOMATIC LOOP RESET MODE BAITS 


3F = AUTOMATIC. LOOP RESET MODE SELECTED. TURN CLE. INTERRUPT 

DELAY SWITCH OFF. THIS SHOULD CAUSE AN AUTOMATIC RESET 

LOOP FOR THE LEVEL SELECTED IN 5IT SWITCHES & THROUGH 7 
LOGIC KT31l1l. 


30 = LEVEL 0 WAS SELECTED IN AUTOMATIC RESET LOOP MODE. A 


RESET OF THIS LEVEL OID OCCUR. 


DEPRESS START TO GO TO 


31 ~ LEVEL 1 WAS SELECTED IN AUTOMATIC RESET LOOP MODE. A 


RESET OF THIS LEVEL DID OCCUR. DEPRESS START TO GO TO 
WAIT De ee a 
55 LEVER @ WAS. SELECTED IN. AUTOMATIC RESET“ LOOP MODES. “A 

_ RESET.OF THIS LEVEL DID OCCUR. DEPRESS START TO GO TO 


33 - LEVEL 3 WAS SELECTED IN AUTOMATIC RESET LOOP MODE. A 
see RESET OF THIS LEVEL DID OCCUR. DEPRESS: START TO GO TO 


Pea & WAS SELECTED IN ote LOOP. MODE. A 


"RESET OF THIS LEVEL DID OCCUR. DEPRESS START. TO GO TO 

cia td Le 3 Re 

35 — LEVEL 5 WAS SELECTED IN AUTOMATIC RESET LOOP MODE. A 
RESET OF THIS LEVEL DID OCCUR. DEPRESS START TO GO TO 
wAIT 1s 


CE. SCOPE LOOP OPTIONS 


O3ab-* 
0003 
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1130 INTERRUPT TEST 


Ge 
De 


DATE 


EC NO. 


1. THE FEED CYCLE RATE IS PROGRAMED FOR 2 CYCLE PER SECOND. 
RATE CAN BE CHANGED BY THE C.E. THROUGH THE SETTING OF BIT 
SWITCHES 8, 9» 105 OR 11 AS FOLLOWS 


THIS 


lo BIT SW.8 ON ~- & CYCLES PER SECOND. 
2- 8IT SW.9 ON = 8 CYCLES PER SECOND. 
3- BIT SWI0 ON - 16 CYCLES PER SECOND. 
&. BIT SW1l1l ON — MAX PROGRAMED SPEED. 
Se WO SWS ON - 2 CYCLES PER SECGND. 


THESE SWITCHES MAY BE CHANGED AT ANY TIME DURING SCOPE LOOP. 


2o THE NUMBER OF FEED CYCLES BETWEEN WAIT TWOS ARE PROGRAMED FOR 190. 
THIS NUMBER CAN BE CHANGED BY THE C.eE~. THROUGH THE SETTING OF BIT 
SWITCHES 125 139 1l&» OR 15 AS FOLLOWS. 


oa = Sa! 


oon 


1. BIT 12 ON 
2e BIT 13 ON 


25000 FEED CYCLES 
250 FEED CYCLES 
3e BIT i ON 50 FEED CYCLES 
4. BIT 15 ON 2C FEED CYCLES 
Se NO BITS ON — 100 FEED CYCLES 


THE SWITCHES MAY BE CHANGED AT ANY TIME DURING THE SCOPE LOOP. 


3e THE C.E. HAS THE OPTION TO TERMINATE THE SCOPE LOOP «ND RETURN 
TO WAIT 1 FOR ANY MEW SET UP BY TURNING ON S6IT SWITCH 03. 


PRINTOUTS (NONE) 
PROGRAM PHILOSOPHY 


INTERRUPT TEST WILL BE RUN AFTER PROBLEMS 4RE ENCOUNTERED WHEN TRYING TO 
LOAD A PROGRAM WITH THE BASIC LOADER IN ThE LOAD AND GO MODE. THE CE 
INTERRUPT DELAY SWITCH IS THEN PLACED IN THE ON POSITIUN AND THE C.P.U. 

TEST IS THEN LOADED, AGAIN USING THE BASIC LOADER. THE SWITCH BEING ON, 
ALLOWS THE C.P.U. TEST TO BE LOADED WITHOUT THE INTERRUPT CIRCUITRY. IF THE 
CoP.Ue TEST RUNS SUCCESSFULLY, THEN THE INTERRUPT CIRCUITRY WOULD BECOME 

THE PRIME AREA OF SUSPICION AS CAUSE OF THE LOADING PRUBLEM. THE INTERRUPT 
TEST wOULD THEN BE RUN NEXT. 


THE INTERRUPT TEST DOES NOT CHECK ON DATA TRANSFER», BUT DOES CHECK THE 

PROPER OPERATION OF THE INTERRUPT FORCED BRANCH INSTRUCTION AND THE PROPER 
LEVEL INTERRUPT ADDRESS. IN MOST CASES», AFTER THE TEST LOCATES THE PROBLEM 
AND IDENTIFIES IT WITH THE PROPER WAIT» A SCOPING LOOP CAN BE ENTERED BY 
DEPRESSING START. THE CoE. HAS 3 OPTIONS AT HIS CONTRUL WHILE IN THE SCOPING 
LOOP. THESE ARE. 


le DELAY BETWEEN FEED CYCLES 
2- NUMBER OF FEED CYCLES BETWEEN WAIT 2 | 
3- AN OPTION TO SELECT ANOTHER DEVICE IF THERE 1S ONE AVAILABLE 


THE INTERRUPT TEST ALSO. ALLOWS THE C.E. TG SELECT AN AUTOMATIC LEVEL RESET 
LOOP MODE. THIS OPTION IS TO BE USED WHEN A LEVEL CANNOT BE RESET. IF 
THIS WERE THE CASE, MOST OF THE PROGRAM'S TIME WOULD BE SPENT TRYING TO 
SERVICE THE INTERRUPT LEVEL AND PROGRAM OPERATION WOULD BE VERY ERRATIC. 
THEREFORE, THIS OPTION IS SET UP WITH A MINIMUM OF PROGRAM STEPS AFTER THE 
CoEe INTERRUPT DELAY SWITCH 1S TURNED OFF. IF THE INTERRUPT LEVEL IS RESET, 
A WAIT WILL INDICATE SO. 

THE INTERRUPT TEST AIDS IN LOCATING PROBLEMS IN 3 BASIC AREAS. THEY ARE, 
2. LEVEL © (END OP) OF THE READ IN DEVICES 

2e LEVEL O (COLUMN) OF THE 1442 

Ze LEVELS WHICH CANNOT BE RESET 


O1MAY66 
415490 


LSAPR6T 
419605 


15JUN67 
420317 
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LEVEL 4 — AT THE END OF A FEED OPERATION, THIS INTERRUPT IS GENERATED. THE 


PART NO. 2191270 
PAGE 0004 . B) 


TEST TRAPS SUCH FAILURES AS. NO INTERRUPT GENERATED DURING A WAIT OP, NO . 
INTERRUPT GENERATED WHILE PROGRAM IS RUNNINGe NO TRANSFER OF BSI L INSTRUCTION ) 
BITS OR INTERRUPT ADDRESS BITS FROM 1/0 BUSS TO B REG, OROPPING OR PICKING 
| BITS BETWEEN 170 BUSS AND 6B REG» AND THE DETECTION OF AN INTERRUPT LEVEL NOT 
BEING RESET WHILE THIS TEST IS. BEING RUN. ALL READO/IN DEVICES USE THIS PHASE ) 
OF THE TEST AND THE WAITS ARE IDENTIFIED BY WAIT 1X WHERE X IS THE PROBLEM 


TOENTIFIER. 


LEVEL O - THE 1442 IS THE ONLY READ/IN DEVICE USING THIS PHASE OF THE TEST. 

THE TEST TRAPS PROBLEMS AS. NO INTERRUPT GENERATED, NO LEVEL 4 INTERRUPT 

CENERATED AFTER AT LEAST 1 LEVEL O INTERRUPT, PICKED OR OROPPED ADDRESS | ) 
BITS ASSOCIATED WITH A LEVEL O INTERRUPT, LESS THAN 80 COLUMN INTERRUPTS 


BEFORE AN END OP, AND MORE THAN 80 COLUMNS BEFORE AN END OP, 


THE WAITS 


ASSOCIATED WITH THIS PHASE ARE-WAIT 2X_y WHERE X IDENTIFIES THE PROBLEM. | | ' 


AUTOMATIC LEVEL RESET LOOP — ALLOW SCOPING OF LEVELS WHICH CANNOT BE RESET. 


THIS MODE IS IDENTIFIED BY WAIT 3F. IF THE LEVEL IS RESET WHILE LOOPING, 


THE PROGRAM WILL WAIT. THE WAITS ASSOCIATED WITH THIS PHASE ARE-WAIT 3X, 
WHERE X IDENTIFIES THE LEVEL. DEPRESSING START WILL CAUSE THE PROGRAM TO GO TO 


WAIT 1. WHERE A NEW SETUP CAN BE MADE. 


THE TEST IS DYNAMIC WHILE TESTING LEVEL O AND LEVEL 4& INTERRUPT OPERATION. 

IF AN INTERMITTENT FAILURE IS ENCOUNTERED, THE PROGRAM WILL INDICATE EACH i 
FAILURE. IF THE TEST IS IN A SCOPE LOOP AND THE TROUBLE DISAPPEARS, THE ~ 

PROGRAM AUTOMATICALLY RECOVERS AND TRIES TO COMPLETE A SUCCESSFUL RUN OR TRAP 


ANY GTHER FAILURE THAT MIGHT OCCUR. 


6e APPENDIX (NONE) 


DATE  O1MAY66 15APR67 15 JUNOT 


EC MO. 415490: 419605. 420317 
™ “=~ Ty ~ a q <a 
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o28C 
0500 


0 


1000 


0502 © 300F 


0502 


05046 
0506 
0508 
050A 
O50C 
O50E 
0510 
05212 
0524 


0516 


0518 


O518a 


051C 
OS1E 
0520 
0522 
0524 


0526 
0527 


0528 


052A 


0526 
0520 
O52F 
0530 


DATE 


oo 
00 
00 
00 
00 


60 
oo 


00 


00 
00 
00 
00 
00 
00 
00 


00 


00 
00 


00 


EC NO. 


65000734 
60000008 
65000744 
60000009 


65000754 | 


6DO0000A 
65000764 
60000008 
65000770 
6D00000C 
65000788 
60000000 
6500070B 
6D000004 
650007¢7 
6DOOOD0E 
650007F3 
60000000 


7001 
3001 


63001000 
69F B 


OL000A66 


C4000A477 
asoc 


04000478 — 


OLMAY66 
4154908 


*e# terete ee eeene ne eae & 


-. MAPIT LOX Ll YECOO 


geeeeenas 


ABS 
ORG 4500 
econ NOP a 


avae WAIT /* 
CSSRSHKESKESSSESSSESLSSSKEKSRSES AES SAKEREHESEEKEESERESD 
gs 
WAIT F * 
| | | , * 
IF PROGRAM IS BEING RUN BECAUSE AN INTRPT ® 
INDICATOR IS NOT BEING CLEARED. SET COSOLES? 


FAULT AND SELECT DEVICE TO BE USED IN TEST#® 
MAKE DEVICE READY AND PUSH START. . 


IF PROGRAM IS BEING RUN BECAUSE OF SOME 

OTHER REASON THAN STATED ABOVE. 

A. SELECT DEVICE VIA CONSOLE SWITCHES 
0--—2 

B. MAKE DEVICE READY. 

Ce PRESS START. 

NOTE INITIAL WAIT F SELECT PROGRAM READ 

IN DEVICE 


SeeoeeeeeneeeeeaseeaeesaeeasseeecesescessesEs 


ENTRY SWITCHES 4---7 TO IDENTIFY LEVEL AT #.. 


euannananaan 


* s 


PTTTTTTTITTTITI TTT TTT TTT TTT ATT TTT TTT tt 


*® INTERRUPT VECTOR SETUP. s 


SKSESSKSCRESKCKSKSSEKRESSFSSSSEHHSLSESKKSEKASSKLSSE SSS SSS 
ad 


STX L1 /0008 LEVEL 0 
LOX Li VECOL a, 
STX L1 /0009 LEVEL 1 
LDX £1 VECO2 _ 

STX 1 /000A LEVEL 2 
LOX Ll VECO3 

STX £1 /0008 LEVEL 2 
LDX Ll VECOS 

STX 1 /000C LEVEL 4 
LDX 1 VECOS 

STX Li /0000 LEVEL 5 


LOX Li BADI2 
$STX Li /0004 
LOX tl BADLS 
STX 1 /OOO0E 
LOX Lil NOADR 
STX L1 /0000 


BIT 12 DROPPED 
BIT 14 PICKED 


NO INTERRUPT ADDR 
3s . m 

MDX WHICH 
g 


WAITL WAIT 1 


PPOPEOOTT TTT TTT TTT TTT TT CTT eT eee TT Tey Terra 


WAIT 1 


s 
gs 
a +, Ss 
A. SELECT DEVICE VIA CONSOLE SWITCHES # 
0---2. & 

B. MAKE DEVICE READY. . s 
Ce. PRESS START. @ 
2 

s 


Ceeeeeeeseeeeeeeseseteverseneussecevesescees 


WHICH LOX ti 41000 
STxX 1 WAITI-1 


X10 t BITSW READ BIT SWITCHES 
LO t B1TSl LUAD RIT SWITCHES 
SRA 12 SET UP FOR DEVICE 
$T0 L B6ITS2 me 

15NOV66 15JUN67 

419605 420317 
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PAGE 


3A800000 | 


34800010 
34800020 
34800030 
34800040 
34800050 
34600060 
34800070 
34800080 
34800090 
34800100 
34800110 
34800120 
34800130 
34800140 
34800150 
34800160 
34802170 
34800180 
34800190 
34800200 
34800210 
34800220 
34800230 
34800240 
34800250 
34800260 
34800270 
34890280 


34800290 


34800300 
34800310 
34800320 
34860330 
34800340 
34800350 
34800360 
34800370 
34800380 
34800390 
34800400 


— 3A800410 


34800420 
34800430 
34800440 
34800450 
3A68004%60 
34800470 
34800480 
34800490 
34800500 
34800510 
34800520 
34600530 
3A800546 
34800550 
34800560 
34800570 
34800560 
34800590 
34800600 
344800610 


~ 3a800620 


34800630 


- 34800640 


34800650 
34800660 
34800670 
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0532 
0533 
0535 
0536 
0536 
0539 


0538 


053C 


O53€ 
0540 
0542 


0543 


0545 
0546 
0546 


(054A 


054C 
054D 
OS4F 
0550 
0552 


0554 
0556 
0558 
055A 
O55C 
055E 
0560 


0562 
(0564 


0566 


0568 


(056A 


056C 
056E 
0570 
0572 


(0574 
0575 
0577 


0578 
0579 
0578 
O57C 


DATE 


0 


1801 


00 4C0405CB 


0 


1801 


00 4C€0405C1 


0 
00 


00 
00 
00 
00 
00 
00 


00 


00 
00 
00 


00 
00 
v0 


00 


00 
00 


06 


00 


00 


EC NU. 


1801 


4COSO05B8 _—C 


3008 
4C000528 


OCOOOA66 
C4000AT7 
1808 
D4000A79 
1803 
4€040580 
C4000A79 
4C 040578 
1801 . 
4CC40590 
1801 
4C0405A4 
4COOO6AE 


65003030 
60600739 
65003031 
60000749 
65003032 
€0000759 
65003033 
60000769 
65003035 
600007C0 


C4COO91E 
D4%00073F 


D600074F — 


0“0007 5F 
04000 76F 
D0%0907C6 


303F 
4C000527 
TOFD 


1801 


4C04059A _ 


1801 
6C0G05AE 


OLMAY66 
4154908 





eee een ee. 


4 


SRA 5 7 
BSC L WHAT3s— CHECK FOR 2501 
SRA 1 | | 
BSC L WHAT2,E . CHECK FOR PAPER TAPE 
SRA 1 | 
BSC L WHATIyE © CHECK FOR 1442 
ceeeeoeeeeeeeeneeeseeesseseneseeeEeteEseEEEs 
s 
_ WAIT 8 ° 
ND DEVICE WAS FOUND TO BE SELECTED. . 
MAKE SELECTION AND PRESS START. s 
; SE | | : 
SLSR LOSS STEREOS SESE SOREL ESS eR eee Sess ST eee ss 
WAITS wAIT 8B NO DEVICE SELECTED 
| BSC L WHICH SET UP TO CHK AGAIN 
. Z ae ! 
CKLOP X10 & BITSW READ BIT SWITCHES 
LD Lt BITS) LOAD BIT SWITCHES 
SRA “LEVEL ON CHECK 
STO & BITS3 LEVEL CHECK BITS 
SRA 3 CHECK FOR LEVEL Oo ON 
BSC LL VECTOsE SET UP LEVEL O LOOP 
LD &t BITS3 LEVEL CHECK SITS 
BSC & CKBIT»E€ NUM OF LEVEL IS ODD 
SRA 1  __—sCHECK FOR LEVEL 2 ON 
BSC L VECT2,€ SET UP LEVEL 2 LOOP 
SRA 1 CHECK FOR LEVEL 4 ON 
BSC & VECT4,E SET UP LEVEL 4 LOOP 
BSC L CLRIX 


NO RESET LOOP SEL. 


SERSERERERESSOESEASHSSERS ERE RETESET E £8SR ES 
WAIT 3F * 


a a 


LEVEL RESET LOOP OPTION HAS BEEN CHOSEN. #*. 
TURN C.E. 


INTERRUPT SWITCH - OFF. THIS + 


SHOULD SET UP AN AUTOMATIC RESET LOOP FOR *# 


* DEVICE AND LEVEL SELECTEDsFOR SCOPE/WORK. ® 
SEKSECSEASESSSVrSEKSKSCKCSCCKESCKHSKSKESCKLSCECSESESERCKESSSE 


RESET LOOP WAITS * 


SVSSITSEGCKSSKSSSEKCSSEKSKSKKKKCKEASK ESAS SSKSEKSEKSSES 


* RESTORE LEVEL 
GOLOP LOX L1 43030 
STX Ll MOD13 
LDx t1 /3031 
STX Ll MOD14 
DX Li £3032 
$TX &1 M0015 
LOX Ll /3033 
~$TX 1 mOD16 
LOX £1 /3035 
STX Ll “0017 
tO tc mOoD1L241 
STO Ut m001346 
STO tL 001446 
STO. L M0015+6 
STO £L 001646 
$TO0 Lt 001746 
eee, 3 - 
LOOPS WAIT /3F 
BSC. L WAITI 
"OX LooPsel 
3 
CKBIT SRA ) ee 
BSC LL VECT3sE 
SRA | 
BSC L VECTSeE 
15NOV66 15 JUN6T 
419605 #20317 


RESTORE WAIT 30 
RESTORE WAIT 31 
RESTORE WAIT 32 
RESTORE WAIT 33 
RESTORE WAIT 35 


SET UP WAIT 1 RETURN 


CHECK FOR LEVEL 3 ON 
SET UP LEVEL 3 LOOP 


CHECK FOR LEVEL 5 
“SET UP LEVEL 5 LOOP 
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34800680 
3a800€90 


~ 34800700 


34800710 
3800720 
34800730 
34800740 
34800750 
34800760 
34800770 
3A800780 


3a800790 
34800800. 


34800810 
3A800820 
34800830 
34800840 
34600850 


34600860 


3A800870 
34800880 
34800890 
34800900 


- 34800910 
34800920 


3A800930 
3A800940 
34800950 
34800960 
34800970 


— 34800980 
. 34800990 


34801000 
34801010 
34801020 
3A801030 


. 34601040 


34601050 
34801060 
3A601070 
34801080 
34801090 
34601100 
34601110 
3A801120 
34801130 
34801140 
348601150 
34801160 
34801170 
34601180 
34801190 
34601200 
30801210 
34801220 


— 34601230 


34801240 
348601250 
34801260 
34801270 
34601280 


— 34601290 


34801300 
34801310 
34801320 
34601330 
3A801340 
34601350 
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PAGE 2 .: PAGE 2A 
tt © | 
INTERRUPT TEST INTERRUPT TEST 
JE 9 
O57E 00 4C000586 — BSC Lt VECTL SET uP LEVEL 1 LOOP 34801 350 © ENTRY SWITCHES. PUSH START. — * 34602040 
| st s | ; ee 34801370 ) 3 _ CO OETHAESESSESHESHESESLESE SHEE SHE OEE SHEE EERE EES 3a402050 - 
0580 00 650007312 VECTO LOX £1 L90P0¢)] . . ee 34801380 ; 0501 0 300C . NROYC WAIT /C SEL 2501/NOT READY 54402060 
0582 00 60000576 » . . $TX 1 LOOPS¢2 SET LEV LOOP vECTOR 34801390 0502 00 4C000528 | BSC L WHICH CHK DEVICE AGAIN 3A802070 _ 
0584 00 4C000554 BSC & GOLOP SET UP»GO TO WAIT 36 34801400 >F 8 ° | | 34802080 | 
ate: 8 - ee 34801410 0504 00 65000458 SETS&2 LOX L1 SENSE SET UP 1442 SENSE wD 44802090 
0586 00 65000741 VECT1 LOX Ll LOOP)+1 34801420 0506 00 6000060C | STX L1 BUSY+1 3a402100 © 
0588 00 60000576 STX lL1 LOOPS+2 SET LEV LOOP VECTOR 34801430 Ya 8 05D8 90 6D0006EA STX tl TEST143 30602110, 
058A 00 65000740 © LOX. £1 LOOP) 34801440 | O5DA 00 6000072A STX Ll WAITG+2 34802120 
058C 00 60000009 STX £2 £40009 es 34801450 : O50C 00 60000736 STX L1 VECOO+¢2 34602130 
058E 00 4C0005546 BSC t GOLOP SET UPeGO TO WAIT 3° 34801460 ) 3 O5DE 00 60000746 STX Ll VECOL+2 3A802140 
@ 34801470 O5EO 00 60000756 STX Ll VECO2¢2 34602150 
0590 00 65000751 VECT2 LOX Lb] LOOP2¢1 | . 34801480 OSE2 00 60000766 STX tl VECO3+42 34602160 
0592 00 60000576 STX Ll LOOPS+2 SET LEV LOOP VECTOR 3A801490 ) 3 O5E4 00 60000772 STX Li VECO4+2 3a602170 
0594 00 65000751 LOX £1 LOOP2¢} ; 34801500 O5E6 0O 60000780 STX Li VECO5+42 34602180 
(0596 00 6D00000A STX L1 /OO0A 34801510 O05E8B OO 6D0007C9S ~ STX t1 CKOOK¢2 34802190 
0598 00 4C000554 BSC t GOLOP SET UP»GO TO WAIT 3F 34801520 3 3 O5EA 00 60000700 © STX 1 8401242 34892200 | 
& ~_ 34801530 O5EC VO 6DOO0TES STX £1 6AD14¢2 34602210 
0594 00 65000761 VECT3 LOX L1 LOOP341 34801540 OSEE 00 6D00007F5 STX L1 NOADR+2 34802220 
059C 00 60000576 STX Ll LCOPS+2 © SET LEV LOOP VECTOR 34801550 J 3 O5FO 00 60000802 © STX LL OSWCK+3 34802230 
O59E 00 65000760 LOX L1 LOOP3 34801560 OSF2 OO 6DO00080B STX Ll OSWCK412 34802240 
0540 00 60000008 STX Ll /0008 | 34601570 | 34802250 
O5A2 00 4C000554 BSC t GOLOP SET UPeGO TO WAIT 3F 34801 580 y 3 O5F4 OO 65800A8C LOX 12 SRAOL SET UP 1442 BUSY CHK 34892260 
2 . > a 34801590 O5F6 OO 600006DD STX ti BUSY+2 3A802270 
0544 00 6500081€ VECTS LOX (1 LOOP4s) 34801600 . | * 3A802280 | 
0546 00 60000576 | STX L1 LOOPS+2 SET LEV LOOP VECTOR 3A801610 | YE 38 O5F8 00 65800A8B LCx 71 NOPIT SET UP 1442 CONTROLS 34802290 
0548 00 6500081D LOX £1 LOOP. . 34801620 > OSFA OO 6D0N006EB STX tl TEST144 3A802300 
OSAA OO 6D00000C STX £1 /OO0C - . 3A801630 O5FC OO 60000803 STX t1 DSWC%+4 34802310 
O5AC 00 4C000554 BSC Lt GOLOP SET UPsGO TO WAIT 3F 34801640 if 3 OSFE 00 6000080C STX Ll DSWCK+13 34802320 
ne | oe 34801650 * | | 3A802 330 
OSAE 00 65000788 VECTS LOX Ll LOOPS} | 34801660 : 0600 00 65000A6A LOx 1 FEED SET UP 1442 XI10 34802340 
0580 00 60000576 ~  - §TX «6k LOOPS+2 SET LEV LOOP VECTOR 3A801670 3 0602 00 6D0006EF STX Ll TEST1+8 | 34802350 
0582 00 65000787 t£Ox Ll LOOPS 34501680 | * | | 34802360 
0584 00 6D00000D STX t1 /000D 34801690 0606 00 65000A85 LOX L121 «100 SET UP 1442 LOOP CNT 3A602 370 
C536 00 4C000554 BSC t GOLOP SET UP»GO TO WAIT 3F 34801700 D 3 0606 00 6D0006FE STX Cl NUMBR+1 : 34802380 
8 | 34801710 | 0608 00 60600723 STX 1 NUMCK+1 34802390 
0588 00 OCO00A5S ##$$#WHATL XIO L SENSE SENSE 1442 READY 3801720 ; * 34802400 
OS5BA 00 4C0405BE , BSC LL NRDYAscE CHK NOT READY 34801730 ) 3 060A 00 65000482 | LDX ti KO10 SET UP 1442 GOOD CNT - 34802410 
058C 00 4C0005D4 tw BSC L SET4&2 SET UP 1442 PROG VEC 3A80174N 060C 00 60000749 | STX C1 FINSH41 34802420 
STSCKSSEEISSSSKSSSESKSSSSSSSSRSELSSKSSSSKSKLSKKEKKKSSES 34801750 s 34802430 
os WAIT A | 8 34801760 ) 3 060E 00 65000829 LOX t) SETUP SET UP 1442 TEST VEC 34802440 
® 1442 SELECTED AND NOT READY. MAKE IT READY? 34801770 0610 00 6D0007AB STX Ll FINSHS3 34802450 
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INTERRUPT TEST 


O6ET 
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Oo&B 
OGEC 
OoEE 


OoFO 
06F1 
O6F2 
O6F3 
O6F4 
O6F5 
O6F7 
O6F9 
O6FB 
O6FD 
O6FF 


0701 
0702 
0704 
0706 
0708 
0709 
O70A 
0708 


070C 
O70E 
O70F 
0710 
0712 
0714 


0715 
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0718 


OT1A. 
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0720 
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0724 
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C4000A7C 
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04000A7C 
94000885 
4C100817 


3012 
65000770 
6D00000C 
650010C0 
o9E7 
69E7 
69F6 
7009 


65001000 
69E1 
69E1 
650007C7 
6coooo0oc 
70C6 


6100 
6DO000ATA 
4000998 


T3FF 
TOFE | 
C4000A7C 
84000AB1 


De000A7C 


94000A85 
40100728 
€C000715 


~ OLMAY66 
4154908 


e 

TESTE LOX 13 OELAY 
X10 tL SENSE 
NOP 
BSC LL OSWCKeE 
X10 t FEED 

B . 

a 

& 

s 

3s 

] 

s 

. 

8s . 

RUNCK WAIT 411 

MOO11 MDX CKRUN 
MDX 3-1 | 
MOX MOD11¢2 
LOx 1 0 
STX t1 GOCNT 
LO L CLPCNT 
A t add01 
STO Lt CPCNT 

NUMBR S L «100 
BSC L WAIT29= 

s 

& 

s 

e 

s 

& 

s 

2 

s 

3s 

s 

s 

SB 

RUNQK WAIT 412 
LOx Lt1 VECO4S 
STX t1 /000C 
LOx £1 4/1000 
STX 1 RUNCK 
STX 1 “0011 
STX 1 RUNOK 
MDX FOCYC 

s 

CKRUN LOX £1 £1000 
STX 1 RUNCK 
STX 41 mO011 
LOx L1 CKOOK 
STX tt) /000C 
MDX BUSY 

s 

FOCYC LOx 10 
STX t1 GOCNT 
BSC t CNTCK 

s 

ERROR MOX 3 -)} 
MOX ERROR 
LO tL CLPCNT 
A t «ool 

~$TO0 &L LPCNT 

NUMCK S tL «100 
BSC tL wAITG<.- 
BSc t FODCYC 

| 

15NOV66 = 1 SJUNGT 

419605 420317 


500 MSEC DELAY 
SENSE FOR READY 


CHECK FOR READY 
FEED 


SSSETEHHESEEOSBHSEESESES 
WAIT 1} s 
NO INTERRUPTS e 
WERE GENERATED. 8 
TO CKECK OuT RUN ® 
TRIGGER, PUSH e 
START s 
Titi iiriicittt TTT ty 
NO INTERRUPTS 
SET UP RUN TRIG CHK 
ODECREMENT OELAY BY 1 


#a vane 


RESET GOOD PASS CNTR 
LOAD LOOP COUNT 

ADD 1 TO LOOP COUNT 
STORE LOOP COUNT 

CHK FOR STOP LOOP 


SHSSSESSSsAsesseseses 
WAIT 12 

NO INTERRUPTS 
WERE GENERATED. 
SETTING OF RUN 
TRIGGER APPEARS 
NOT TO BE THE 
CAUSE OF THE 
FAILURE. 

TO GO INTO SCOPE = 
LOOP, PUSH START. 
SSSHSSEHETESE EE SESES 
NO INT-RUN TRIG CKED 


ee egaaeanvdewvaa @ 
efaoageaeee ss 


SET UP LEVEL 4 VEC 
NOP 
SET UP SCOPE LOOP 


BRANCH TO SCUPE LOOP 
SET UP RUN TRIG CHK 


CHECK RUN TRIGGER 


RESET GOOD PASS CNTR 
CHK COUNT OPTION 


STEP DOWN DELAY 
LOAD LOOP COUNT 

AOD 1 TO LOOM CNT 
STORE LOOP CAT 
CHECK FOR STUP LOOP 
CHECK FOK WAIT 2 
FEED AGAIN 
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34604080 
34804090 
30804100 
34804110 
3A804120 
34804130 
34804140 
34804150 
34804160 
34604170 
30804180 
3A604190 
34804200 
3A804210 
34804220 
34804230 
30804240 
34804250 
3A804260 
3A804270 
34804280 
34804290 
34804300 
34804310 
3A804320 
34604330 
34804340 
34804350 
3A804360 
3A804370 
34804380 
34804390 
34804400 
34804410 
3A804420 
34804430 
34804440 
34804450 
34804460 
34804470 
30804480 
34804490 
3A804500 
34804510 
34804520 
3A804530 
34804540 
34804550 
34804560 
34804570 
30804580 
34804590 
34804600 
30804610 
34804620 
34804630 
34804640 


34804650 


34804660 
34804670 
34804680 


34804690 
30804700 
34804710 


34804720 
34804730 
34804740 
3A604750 
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INTERRUPT TEST 


0726 
0729 
0726 
O72C 
O72E 


0730 
0731 
0733 


0734 


0735 
0737 


0739 


G73A 
073C 
O73E 


0740 
0741 
0743 


0744 


0745 
0747 


0749 


O7“4A 
JTC 


O74E 


DATE 


00 


00 


00 


00 
00 


00 
00 
00 


EC NO. - 


3002 
OCOO0A58B 
6100 
60000A7C 
4C000715 


0000 _. 
OCOOOA5SA 
700) 


0000 
OCU00A58 
4C400739 


3030 


65800AS0 
60000739 
4C000502 


0000 
OCO00A62 
700) 


0000 
OCO00A58 
4C400749 


3031 


65800A91 
60000749 
4C000502 


O1MAY66 
4154908 


SSSEETHSSES STOOLS HOEESHEESHEEREKESESIOSSLAESEES 


* 
s 
@ 
s 
s 
s 


ANOTHER LOOP. CYCLE. 


WAIT 2 


s 
eg 
. & 
NORMAL WAIT AFTER DESIRED NUMBER OF LOOPS * 
PASSES HAVE BEEN MALE. PUSH START TU MAKE ® 
* 

s 


STTCSSTHSSSSSSKSHSHSSSESSSHSSESESSHSSHESSH TE TKSEEES 


s 

WAITG WAIT 2 
X10 t SENSE 
Lox 10 
STX L1 LPCNT 
BSC Lt FOCYC 


LOOPO OC 0 
X10 L SENPT 
MDX vecoo+) 
s 
vecoo OC 0 


X10 t SENSE 
BOSC t #0013 


x 

a 

s 

3 

s 

S 

ad 

s 

e 

s 

s 

M0013 WAIT 430 

& 

a} 

s 
LOx I: MOFYB 
STX 1 0013 
BSC L MAPIT 

& 

LOOP1 OC ) 
X10 L PRINT 
MOX = VWECO1+1 

s 

VECO] OC 0 
X10 L SENSE 
BOSC L MmODi4« 

 ] 

3 

Ss 

s 

s 

s 

s 

s 

s 

% 

s 

MOD14 WAIT 31 

% 

s 

s 

8 

3 


LOX 131 MOFYC 
STX Ll MO014 
BSC tL MAPIT 


15NOV66 15 JUN67. 
419605 20317. 
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See a Sa : See A 


STOP SCOPE LUOP 


RESET LOOP COUNT 


SERKEKEREHKEEERESEES 
* LEVEL O AUTO * 
* LEVEL RESET LOOP # 
SESHOESEKEHEKEKEREREE 
* LEVEL O RESET e 


* SCOPE LOOP * 
SETHKHESHREH REESE RE 


SSSCSSESKSCSSASCSE SEEKER 


* INTERRUPT O LEVEL® 
* WAIT 30 * 
* RESET DURING AUTO® 
* SCOPE LOOP. * 
* PUSH START TO GO * 
* TO WAIT 1. * 


SERRE HSKESEEEE EES 
SSLERTHESR ESE SESESE 
* WAIT 13 * 
* DROPPED AODR BIT * 
* 13. PUSH START * 
* FOR SCOPE LOOP * 
SERRE ETSE SESE STER EES 


MOX ERROR 


SESSHRESHESSEREEEESES 
s * 
* LEVEL 1 AUTO * 
* LEVEL RESET LOOP * 
SECSSHHSSTHEK ET EREES 
* LEVEL 1 RESET * 


* SCOPE LOOP * 
SESEHHHKTSEH EERE EEKEKS 


SSESSLOECHKSESCSSSLSCLSESES 


s WAIT 31 * 
® INTERRUPT 1 LEVEL? 
® RESET OURING AUTO#® 
® SCOPE LOOP. s 
* PUSH START TO GO # 
zs TO WAIT le * 


ARECSSHRSSKESRHESLSHKSESES 
SRELSCTSIS SKS KESSESY 

WAIT 14 ® 
INTERRUPT CAUSED ® 
A LEVEL 1 ADOR TO*# 
BE GENERATED. s 
PUSH START FOR s 
* SCGPE LOOP.  & 
SSCHSHTKSSKHEEKKESES 
MOX ERROR 


#an 8 @ 
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0871 00 94000485 TOTAL S tL «100 SUBTRACT 100 : 2" 34808450 aise O8AE O 6100 _ Lox 10 RESET COLUMN COUNT 34809130 
0873 00 4C100876 BSC L CHECKe~. 100 CARDS FED -_ 34808460 : OBAF 00 60000A7B STX t2 CLCNT 34809140 
0875 0 7005 MDX BUZY CHECK FOR BUSY 34808470 : 3 0881 O 7060 MDX #002141 BRANCH TO LOUP 34809150 
s S48 = 34808480 | , _ s Be 34809160 
‘- 0876 00 C4000A7B CHECK LO tL CLCNT LOAD COLUMN COUNT ‘ 34808490 | 0882 0 0000 INTO OC i) Sg | 34809170 
SSSCKHITSS CESSES SS SSSSKSSSKSLSSSEKSSE ESSERE SEESES 34408500 s 6S 08B3 00 OCO00A5S8 . X10 LL SENSE 34809160 yi: 
e 2 34808510 @ 08B5 00 74010A7A MDX L GDCNT»,*1 ADD 1 TO GOOD PASS | 34809190 ! 
s 25 WAIT 2. Ps 34808520 : 08B7 00 65003021 _ . tOx. Ll 4302) - a | 34809200 | ; 
3 mot el s 34808530 7 2 08BS 00 60000661 ~STX Ll M002) | RESTORE WAIT 21 34809210. 7 
® NORMAL WAIT AFTER DESIRED NUMBER OF CARDS © © 34808540 | : O8BB 00 65003022 _ Ox tl 43022. .. | . , 34609220 © 
» ® HAVE BEEN READ. PRESS START TO REAO THE r 34608550 | : 08BD 00 6D0008A9 STX- L1 HOD22 RESTORE WAIT 22 — 34809230 
% NUMBER OF BLANK CARDS DESIRED 3 34808560 1 g O8BF OO C4000A7B LO tL CLCNT . {tOAD COLUMN COUNT 34809240 y 
SHSSSRSSHSRE RSA RES EDARS SOOKE ROSES SAREE EERES 34808570. : O8C1l 00 94000A84 S kL «0860 | CHECK FOR 80 COLUMNS 34809250 . 
s | 34808580 ~ 08C3 00 4C5808DA | BOSC L CNTOKe+- CHECKED OK 34809260 
0878 O 3002 3 WAIT. 2. | 100 CARDS FED et 34808590 3 O8C5 00 4C680921 | BOSC & MOND24eZ+¢ 6RANCH LESS THAN 80 34809270 _ ) 
. : © | : see SoG 34808600 O8C7 00 4C4008C9 BOSC L CLERR 34809280 
0879 O 6200. Lox 20 2 , - 34808610 ; O8C9 00 C4000A7B #£é;CLERR LD L_ CLCANT LOAD CULUMN COUNT 34809290 
O87A OO 6EQD0DATC STX L2 LPCNT RESET LOOP COUNT 3A808620 3 CHELATES ESTAS SS SES TEESE EE TERESESEEN SESE GD ETED 34809300 ) 
087C OO 6E000A78 STX &2 CLCNT RESET COLUMN COUNT ~~. 34808630 : . | WAIT 23 | * 348609310 
OB7E O 7OCC MDX puzy . RESTART LOOP CHECK 34808640 : : . ot Base % 34809320 
* , 7 | 34808650 3 * MORE THAN 80 COLUMN INTERRUPTS RECEIVED # 34809330 | ) 
O87F 00 D4S000A7E CkRDY STO L OSW1 STORE DSw. 34808660 * WHEN END OP INTERRUPT WAS GENERATED.NUMBER*® 34809340 
0881 O00 OCOO0A5B X1Q t SENSE SENSE FOR READY 3A808670 . : * OF COLUMN INTERRUPTS IS DISPLAYED IN A REG* 34809350 
0883 00 94000ATE © Ss tL OSwi SUBTRACT LAST OSw 34808680 3 | * PUSH START FOR SCOPE LOOP. | ® 34809360 
0685 OO 4C180689 BSC L CKRDY410, 4— 2, Fe . 3A808690 — | 45066460060 56405540400666060000000050RRKuS ces 34609370 
0887 00 #C000859. BSC L START¢2 OSW CHANGED 34808700 oscs 0 3023 MOD23 WAIT 423 MORE THAN 60 COLUMNS 3A809380 | 
0889 00 OCOL0A5S8 X10 UL SENSE. RESET OSu - | 34808710 - > a OosccC 0 6100 LDXx 10 RESET COLUMN COUNT 348609390 ' 
088B O 6100 a LOX ° 1-0 ee 3a808720 . 0&CD 00 60000A7B  STX 01 CLCNT | : PRE an a 34809400 
088C 00 6DOOOATE STX Ll OSwl | RESET STORED OSw 34808730 O8CF 00 66800A98 ... LOX 12 MOFYQ — | 34809410 . | 
O8BE 00 4C€040892 | BSC L WNORDYsE NOT READY 34808740. > 3 O&601 00 6E0CO8CB _  ~ STX..L2 mOD23. ALLOW LOOP , 34809420 ) 
0890 00 4C00085D. BSC b START+6 READY ss =. 34808750 . 0803 00 4C400862 - BOSC L CAROS BRANCH TO LOUP . a 34809430 | 
—_ | gg 4 40eG 34608760 | : en ee eS ay, Pie ee: oe 34809440 | | 
3 SSSCHSSSESASSSSSSSSSSs 34808770 > 0605 0 6100 HOPIT LOX 1 0 | 34809450 ) 
‘ Be OR te * wAIT 3 ® 3a8087680 . | O8V6 00 6D000A7B STX L1 CLCNT | RESET COLUMN COUNT 34609460 | 
8 a Le ee Se ® READER NOT: READY & 34808790. | a O8D8 00 4CO0085F : BSC t LESS) 34809470 | | 
: Sh s : a eee SSHESSTHEREKSSSASESEESE 3A808800 | > Ok. Saul ae acts ae a. re ee een 34609480 yi 
0892 0 3003. -  WOROY WAIT 3-5. °. READER NOT READY 3a808810 | | O8DA 00 65003021 . CNTOK LOX. L1. 73021. | oe 34809490 | 
0893 00 OCO00AS5S . XIO tt SENSE . SENSE + RESET 34608820 | Pe O8DC 00 60000861 . STX t1 mOD21 | RESTORE WAIT 21 34809500 _ 
0895 00 4«€000859.- BSC. L START*2 READER READY 34808830. | 3 OBDE 00 65003022 LDX..L1 43022 | 34809510 ) 
DATE = § GIMAY66 15NOV66 15JUN67 PROG 10 0O3A8-0 1.3 DATE O1LMAY66 15NOV66 LS JUN67 PROG 1D 03A8-0 ) 
EC NO. © -4154908 419605 420317 | PAGE 7 EC NOe. . 154908 419605 £20317 PAGE TA 
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1BM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 2191268 IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM oe NO. mae 
PAGE 8 A 
INTERRUPT TEST : INTERRUPT TEST | 
3 | . 
O8E0 00 600008A9 STX Li M0022 RESTORE WALT 22 34809520 | 0932 00 66000920 LOX t2 INTO) 34810200 
ObE2 00 65003023 LOX t1 73023 | 34609530 ) z 0934 00. 6FO0000C STX Lt2 /000C - 34810210 
OBES OO 6DO00BCSB STK til 4OD23 RESTORE WAIT 23 34809540 0936 O00 4C400938 BOSC t mO0D025 34610220 
ObE6 OO 65003024 LOX t1 43024 BEE oc 34809550 | BESKKKESSTKSESSSSESSESSSSESHOSHSCESSHEEERHKSESEEEE REE EE 348610230 
O8E8B 00 60000923 STX Li 002442 - RESTORE WAIT 24 34809560 ) 3 2 . s 34810240 
O8FA 00 65003025 LOx tl /3025 3a809570 2 WAIT 25 * 34610250 
OBEC O00 60000938 STX tl mOD25 RESTORE WAIT 25 - 34809580 © * pe * 3A810260 
OKEE 00 65003026 LOX Ll /3026 34809590 ) 3 * INTERRUPT GENERATED,CAUSED A LEVEL 1 * 3a810270 
O&FO OO 60D00094D STX tl M0076 RESTORE WAIT 26 34809600 * ADDRESS TO BE GENEKATED. s 34810280 
OBF2 OO 65003027 LOX tl /3uU27 3A809610 * PUSH START FOR SCOPE LOOP. * 34810290 
O0B8F4 00 60000962 ~ S$TX tl MO027 RESTORE WAIT 27 34809620 ) 3 . SHKSEKSEKSRSS KASS HSH HEHE SEEKER HSAEEEREREEEE ESE 34810300 
O8F6 OO 650035028 tOx t1 /3028 34809630 0938 0 3025 MOD25 WAIT 425 LEV O PICKED HIT 15 348610310 
 O8FB OO 60000977 STX t1 mO028 RESTORE WAIT 28 34809640 * 34810320 
O6FA 00 65003029 “LOX L1 /3029 oe 34809650 >| 9 0939 0 6100 Lox 10 RESET COLUMN COUNT 34610330 
~OBFC 00 6000098C STX LI MOD29 RESTORE WAIT 29 3A809660 093A 00 6D000A7B STX t1 CLCNT 34610340 
OBFE O00 C&000A7A tO  & -GOCNT LOAD CARD COUNT 34609670 093C 00 66800A9D LtDOx I2 MOFY6 ALLOW LOOP 34810350 
0900 00 94000A82 S tL K0O10 SUBTRACT 10 348096860 ) 5 O93E 00 6E000938 STX t2 MOD25 ALLOW LOOP 3A810360 
0902 00 4C€100912 BSC L WAITAg- CHK NUMBER OF PASSES -3A809690 0940 00 4C000862 BSC t CARDS BRANCH TO LOOP 34810370 
0904 0 6100 LDX 10 3A809700 s 3A810380 
0905 00 6D000A7B STX tl CLCNT RESET COLUMN COUNT 3A809710 ») | 0942 0 0000 INTO2 OC 0 INTERRUPT 2 3A610390 
0907 00 éDO00ATC STX Li LPCNT RESET LOOP CARD CNT 3A809720 0943 00 OCOOOASB XIO0 tt SENSE 34810400 
0909 00 OC000A66 XIO t BITSW SENSE BIT SWITCHES 3A809730 0945 00 C4000A7B LD L CLCNT LOAD COLUMN COUNT - 34810410 
0908 O00 C4000AT77 LD tL BITS) LOAD BIT SWITCHES 3A809740 ) 3 0947 00 66000942 LDX Lt2 INTO? 3A810420 
090D QO 180C SRA l2 CHK FOR WAIT 1 OPT 3A809750 : 0949 00 6EQ0Q000C STX L2 /000C 34610430 
O90E 00 4C040913 BSC CL WAITA+1,E RESTORE/GO TO WAIT 1 34809760. 0948 00 4€C400940 BOSC Lt MOD26 34810440 
0910 00 4C000862C BSC tL SETUP+3 NOT 10 PASSES 3A809770 M5, > | SUKEKESEKAKSEKSESSASESER SEHK SSR HESSAESSEREES ERE 34810450 
s . 3a809T780 * * 3A810460 
s SHEESH ASEKESSE SERS ESTES 3809790 s WAIT 26 * 3A810470 
s * WAIT & * 34809800 3 * | 34810480 
0912 0 3004 WAITA WalT dy * DEVICE TESTED, % 3A809810 * INTERRUPT GENERATEDsCAUSED A LEVEL 2 * 34810490 
s * RAN SUCCESSFUL. & 3A809820 * ADDRESS TO BE GENERATED. * 34810500 
SERS SSKRSESCCSSSEKSSLSESCKKESAKSESKKKKAKKEKSEKECEKLKCEKCCEKEESTES 34809830 ) 3 * PUSH START FOR SCOPE tOOP. = 34810510 
& x 3A809840 ; SRECESCEKSEESCKSSKKKSSKEKSKKEKKSKESKRESCKREKERSEKREKES 3A810520 
s 34809850 094D 0 3026 MOD26 WAIT 126 LEV O PICKED BIT 14 34810530 
* , * 3A809860 Yiog * 34810540 
® TO RERUN PROGRAM PRESS START. , 3a609870 0946E 0 6100 LOX 10 RESET COLUMN COUNT 34810550 
s s 3A809880 094F 00 6D0O00A7B STX 01 CLCNT - 34810560 
| SKFESSSLSESSSKLESKSKLSESSESSSSESHSKSKSK SKK STKSEKSKSESSE 348039890 ) 3 0951 00 66800A9E LDX I2 MOFY? ALLOW LOOP 34810570 
0913 0 6100 LOX 10 3809900 0953 00 6€00094D STX L2 ™GD26 3A810580 
0914 00 6D000A7B STX t1 CLCNT RESET COLUMN COUNT 34809910 0955 00 4C000862 BSC tt CARDS BRANCH TO LOOP 3A810590 
0916 O00 6DOO00ATA STX tl GOCNT RESET CARD COUNT 3A809920 3 3 ; 34810600 
09186 00 OCOO0O0A66 XIO0 tt . BITSW 3A809930 0957 0 0000 INTO3 OC 0 INTERRUPT 3 3A810610 
091A 00 C4000A77 LO Lt BITS) 34809940 0958 00 OCOOOASS XIO CLC SENSE 3A610620 
O91C O 180C SRA 12 34809950 J z 0954 00 C4000A7B LD ct CLCNT LOAD COLUMN COUNT 34810630 
C91D 00 4C€040502 MOD12 BSC LL MAPITSE ; . 34809960 095C 00 66000957 LOx L2 INTO3 34610640 
O9LF OO 4COO0O6AE BSC L CLRIX RERUN PROGRAM 3A809970 . -095E 00 6EOO0000C STX L2 /000C 34610650 
* | 34809980 J] 3 0960 00 4C400962 BOSC L MmOD27 | 34810660 
0921 00 C4000A78 mMOD24 LOD t CLCNT LOAD COLUMN COUNT 34809990 SKKKSKSEKSKSES KKK KKKESEKSESKSRESSKSEES KIEL SER EESE 34810670 
SKESCSSHETSCSCECSSESSKSESHSSETCESTSKCHESKSLTCSSETECSEKESKSESEEK 3A810000 s * 3A810680 
. | * 34810010 | 3 * WAIT 27 mn 34810690 
s . WAIT 24 oa 3A810020 * . | * 34810700 
. . | Pa 34810030 7 * INTERRUPT GENERATED»CAUSED A LEVEL 3 a: 34810710 
* LESS THAN 80 COLUMN INTERRUPTS RECEIVED * 34810040 ) 3 * ADDRESS TO BE GENERATED. . * 34810720 
%® WHEN END OP INTERRUPT WAS GENERATED. NUMBER® 34810050 * PUSH START FOR SCOPE LOOP. 3A610730 
= OF COLUMN INTERRUPTS IS DISPLAYED IN A REG* 3A810060 KKKKSKKTSESKSEASTHKSKKSKSKSESRK SEHK SKKEKKKKHEKKESEKEKE 34810740 
* PUSH START FOR SCOPE LOOP. — 7 34610070 Yi g 0962 0 3027 MOD27 WAIT 27 LEV O PICKED 14415 34810750 
SHSESSTSSKASSSHSS SSH SKSESSSSKESSSRKSEEKEE EE SEEEERESE 34810080 . * 3a810760 
0923 0 3024 WAIT 424 . 34810090 : 0963 0 6100 LOX 1 0 RESET COLUMN COUNT 34810770 
* 3 - 34810100 ) 2 0964 00 6D000A7B STX £1 CLCNT 34810780 
0924 0 6100 LOX 1 0 RESET COLUMN COUNT 34810110 0966. 00 66800A9F  LOx I2 MOFY8 ALLOW LOOP 34810790 
0925 GU 6DO000A7B STX Li CULCNT : 3 : 3A81C120 0966 00 6&000962 STX t2 MOD27 34810800 
0927 00 66800A9C LOX I2 MDFYS 34810130 Y 3 096A 00 4C000862 BSC t CARDS BRANCH TO LOOP 34810810 
0929 00 6£&000921 .STX L2 mOD24 ALLOW LOOP 3A810140 | | e 7 . 34810820 
092B 00 4C000862 BSC t CARDS BRANCH TO LOOP 34810150 _ 096C 0 0000 INTOS. DOC , oO INTERRUPT 5 3A8610830 
a | : 34810160 f 3 0960.00 0C000A58 X10 tL SENSE 4 — 34610840 
0920 0 9o000 INTO] DOC ¢) INTERRUPT 1 3A810170 : O96F 00 C4000A7B Lo tL CLCNT LOAD COLUMN COUNT 3A810850 
~O092E OO OCO00ASS x10 LL. SENSE - . - 3A810180 . 0971 00 6600096C LOX Le INTOS 34410860 
0930 00 C4000A78 LD. tL CLCANT LOAD COLUMN COUNT 34810190 ' > | 0973 00 6EOQOO000C STX t2 /000C 348610870 
DATE OLMAY66 1SNOV66 1SJUNGT PRIG ID 03A8-0 a » DATE OlLMAY66 1SNOV66 1S5JUN67 PROG 10 O3A8-0 
EC NO. 4154908 419605 20317 - PAGE 8 : EC NO. 4154908 419605 420317 PAGE 8A 
7 etna ae ee Seem EI ach 7 - st | 3 
Me ROS, Be: ~ _ ™ ~ ™~ ~ feon™ ~ ~ a se ~ Nw ~N ~ ~ a ~ ~\ Py ~ 
| Pout ae a wt ke ee a a oo yO) are ee ee ee oe 
~~ - eo 7 Ne / vv / er ae - cee, wy ket ooo cue bc ae ae oe i os ye — es = se ee 4 
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16M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


INTERRUPT TEST 


0975 00 4C400977 


0977 


0978 
0979 
0978 
0970 
O97F 


09861 
0982 
0984 
0986 
0988 
O98A 


098C 


098D 
O98E 
0990 
0992 
0994 


0996 


0998 
0994 
099C 
099E 
099F 
o9al 

-09k2 
0944 
O9A5 
O9a7 
0949 
O9A6 
O9AD 


O9AF: 
0981 
0983 
O9B5. 


0987 
0989 
 O9B6 
O9BD 


O96F 
09Cl 


oo 
co 
GO 
00 


DATE. 
EC NO. 


3028 


6100 
6D000A7B 
60B00AA0 


6E00097T7 


4C000862 


- 0000 


OCO00AS8 
C4000A78 
6600098) 
6E00000C 
4C40098C 


3029 


6100 

6D000ATB 
66800499 
6E00098C 


-4C000862 


4CO008DS5 


OCO0CAGS 
C4000A77 
4COS0SAS 
1601 

4C040987 
1801 

“4CO409BF 
1801 

&CO409C7 
65000485 
&6DO006FE 
05000723 
&COOO9CF 


65000AB2 
oDOOO6FE 
05000723 
“«COO0O09CF 


65000A83 


oDOOO6FE 
05000723 
#COOOSCF 


65000A86 
6DOO0EFE 


OLMAY66 
4154906 


#19605 


BOSC 


MOD28 WAIT 
2 
i DX 
STX 
LOX 
STX 
BSC 


ADR1i2 DC 
x10 
.tOoO 
cOx 
STX 
BOSC 


L. | 
SPHTTSSHSSSSHSHSHSESSSSHESHSE SESS 


“0028 


WAIT 28 


— 428 


Li 


12 
L2 


0 

CLCNT 
MDFY9 
M0028 
CARDS 


es 


L 
L 
L2 
L2 
L 


-SENSE 


CLCNT 
ADR12 
/000C 
mOD29 


INTERRUPT GENERATED,CAUSED A LEVEL 5 
ADDRESS TO BE GENERATED. 

PUSH START FOR SCOPE LOOP. 
SESSHSEASSEKESSETASERAHESEKSASSETAEES HERE REDO EE 


SESERECOCEHREREE 


= 
G 
s 
s 
s 
s 


LEV O PICKED 13415 


RESET COLUMN COUNT 


ALLOW LOOP 


BRANCH TO LOUP 


SHCSCKHS SEERA ESEESESESSECKAEESE SRS SESSA ETRES EES 


s 


s 


WAIT 29 


® 0 WAS GENERATED. 


/ * PUSH START FOR SCOPE LOOP. 


s 

2 

. 2 

® BIT 12 WAS DROPPED WHEN INTERRUPT LEVEL * 
& 

2 

3 


VRSSSSSCSSEESSLETSKESKSSKSESSESSSEKKSESKSEKLSCASK LS ESESS 


s 

0029 WAIT 129 

s 
LOx 1 0 
STX 1 CLCNT 
LOx 12 MOFY2 
STX t2 mOD29 
‘BSC tL CARDS 

2 

_ JUMP BSC t HOPIT 

s 

CNTCK XIO0 t BITSW 
LD Lt BITS) 
BSC LL KNTOLeE 
SRA 1 
6SC LL KNTO2ecE 
SRA l 
BSC L KNTO3E 
SRA l 
BSC tL KNTO4eE 
LOx Lil K100 
STX Ll NUMBR1 
STO Li NUMCK) 
BSC t.. CKOVR 

2 

KNTO1 LOX L1 KO1O 
STX Ll NUMBRe) 
STO Ll NUFCKe) 
BSC t CKOVR 

zs 

KNTO2 LOX Ll] KO5SO 
STX Ll NUMBR+1 
STO Ll NUMCKel1 
BSC t CKOvR 

s 

KNTO3 LOX Ll K250 
STX 1 NUMBR)] 

1SNDV6S 15 JUN67 


~ 620317 





INT O DROPPED BIT 12 


RESET COLUMN COUNT 


‘ALLOW LOOP 


BRANCH TO LOOP 


READ BIT SWITCHES 
LOAD BIT SWITCHES 


SELECT COUNT 
CHK COUNT OF 
SELECT COUNT 
CHK COUNT OF 


SELECT COUNT 


CHK COUNT CF 
SEL COUNT OF 


OF 10 

50 

OF 50 

250 

OF 250 
25000 

25000 


SET UP CNT OF 100 
SET UP LOOP COUNT 


SET UP CNT OF 10 
SET UP LUOGP COUNT 


SET UP CNT OF 50 
SET uP LOOP COUNT 


SET UP CNT OF 250 


PART NO. 


PAGE 


34810880 
34810890 
34810900 
34810910 
34810920 
3A810930 
34810940 
34810950 
34810960 
3A810970 
34810980 
34810990 
34811000 
3A811010 
34811020 
34811030 
3A811040 
34811050 
3A811060 
34611070 
34811000 
3A811090 
34811100 
34611110 
34811120 
34811130 
3A811140 
34811150 


. 34€11160 


3AE11170 
30811180 
34811190 
34811200 
3a811210 
3A811220 
34811230 
3a811240 
34811250 
30811260 
3A811270 
34811280 
34811290 
34811300 
34811310 
34611320 
34811330 
34811340 
34811350 
34811360 
34811370 
34811380 
34811390 
34811400 
34811410 
34811420 
34811430 
30811440 
34811450 
34811460 
34811470 
34811480 
34611499 
34611500 
34811510 
34611520 
34811530 
34811540 
34811550 


PROG 10 


PAGE 


2191268 
9 


O03A8-0 
9 
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ad 
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1BM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM PART NO. 
PAGE 
@ 
INTERRUPT TEST 
® 
09C3 00 05000723 STO tl NUMCKe) SET UP LOOP COUNT 34611560 
® U9C5 00 4CO009CF BSC t CKOVR | (34611570 
* 34811580 
09C7T 00 65000A87 KNTOS LOX Ll KMAX 34811590 
@ U9C9 00 6DOO0EFE STX Ll NUMBR4) SET UP CNT OF 25000 34811600 
09CB 00 05000723 STO LL) RUMCK41 SET UP LOOP COUNT 34611610 
O9CD 00 4COO09CF BSC t CKOVR | 3Ab11620 
>) * 34811630 
O9CF 00 OCO00A66 CKOVR X10 t BITSW READ BIT SWITCHES 34611640 
09D) 00 C4000A77 LO Ct BITSI LUAD BIT SWITCHES 34811650 
3 C9D3 0 1804 SRA 4 DELAY CHANGE 34611660 
0904 00 4C0409E5 BSC tL NUOLY+rE NO DELAY SELECTE 34811670 
09D6 U 1801 SRA 1 CHECK FOR DELAY 34811680 
3 0907 00 4C0409EB BSC Lt DLYOLSE SELECTED DELAY 34811690 
0909 5 1801 SRA 1 CHECK FOR OELAY 34611700 
O9DA 00 4CO0409F1 BSC L OLYO2sE SELECTED DELAY 3A811710 
3 O9DC O 1801 SRA l CHECK FOR DELAY 34811720 
O90D UO 4COS09F7 BSC Lt DLYO3sE SELECTED DELAY 3A811730 
O9DF OO 65000A7D LDX Li DELAY SET DELAY FOR 2.5 SEC 34811740 
3 O9E1 00 6D0006EF8 STX £2 TEST1+41 SET UP DELAY 34611750 
O09E3 00 4C0006D8 BSC t B8USY 34811760 
* 34811770 
3 O9ES 00 65000A80 NOOLY LOX Li KO000 LOAD ZERO 34411780 
G9ET 00 6DO006E8 STX L1 TEST1+1 SET UP NO DELAY 34811790 
O9EG 00 4C0006DB BSC Lt BUSY 34811800 
3 ® 34811810 
O9EB 00 65000488 DLYO] LOX Ll TIME] 34811820 
O9ED 00 6D0006E8 STX Ll TESTI41 SET UP DELAY 34611830: 
3 O9EF OO 4C00060B BSC Lt BUSY 34811840 
* 34811850 
O9F1 00 65000A89 DLYO2 LDX Ll TIME2 34811860 
D | 09F3 00 6D0006E8  STX Ll TESTI) SET UP DELAY 34811670 
O9F5 00 4C0006DB BSC tL BUSY 34811880 
| * 34811890 
3 O9F7 00 65000A8A DLYO3 LOX Ll TIMES 34811900 
| O9F9 00 6DO006ESB 7 STX Ll TESTI41 SET UP DELAY 30811910 
O9F&8 00 4C0006DB BSC Lt BUSY 34811920 
3 i « 34611930 
O9FD 00 0C000A66 CNTIT X10 Ct BITSW READ BIT SWITCHES 34811940 
O9FF 00 C4000A77 LO et BITS1 LOAD BIT SWITCHES 34811950 
D 4 QAO] 00 4C040A12 BSC L CNTOLsE SEL CARD CNT OF 10 34811960 
0A03 O 1801 SRA l CHK CARO CNT OF 50 34811970 
OA04 00 4C040A18 BSC Lt CNTO2cE SEL CARD CNT OF 50 34811980 
> | OA06 0 1801 SRA l CHK CARD CNT OF 250 34811990 
OAO7 OO 4CO4OALE BSC LL CNTO3eE SEL CARD CNT OF 250 34812000 
0A09 O 1801 SRA l CHK CARD CNT OF 25K 34812010 
> { OAGA 00 4C040A24% BSC L CNTO4SeE SEL CARD CNT OF 25K 34812020 
OAOC 00 65000A82 LOX tl KO10 34812030 
GAOE LO 60000872 STX Ll TOTAL+) SET UP CNT OF 10 34812040 
3 OA10 00 4COO0A2A BSC LL ENDCK 34812050 
* : - 34812060 
0A12 00 65000A82 CNTO1] LOX L2 KO1O 34812070 
3 0414 00 60000872  $TX Ll TOTAL41 SET UP CNT OF 10 34812080 
OA16 00 4&COO0A2A BSC Lt ENOCK | 3812090 
| * 34812100 
oe 0A18 00 65000A83 CNTO2 LDX L1] KO50 oe 34812110 
QALA 00 60000872  $TxX Ll TOTAL?) SET UP CNT OF SO 34812120 
OAC 00 4COOOA2A BSC -L ENDCK 34812130 
9 * 34812140 
OALE 00 65000A86 CNTO3 LOX t1 K250 34812150 
0420 00 6D000872 STX Ll TOTAL+) SET UP CNT OF 250 34812160 
$ OA22 GO 4COO00A2ZA BSC Lb ENDCK 34612170 
s | 34812180 
OA24 00 65000A87 CNTOS LOX Ll KMAX 34812190 
4 OA26 OO 60000872 2 STX tl TOTAL+4) SET UP CNT OF 25000 34812200 
OA26 00 4COO0OA2ZA | BSC t ENDCK 34812210 
= 0 * , 34812220 
+ OA24 00 OCO00A66 ENDCK XIO tL BITSW READ BIT SwITCHES 34612230 
yy DATE - O1LMAY66 15NOV66 15 JUN67 PROG 10 
EC NO. 419605 420317 PAGE 
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(16M MAINTENANCE OLAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


INTERRUPT TEST 


OA2C 
OA2E 
OA2F 
OA31 
OA32 
OA34 
0OA35 
OA37 
0A34 
OA3A 
Oa3c 
OA3ZE 


0A40 
OA42 
OA44 


OAS6 
OA4B 
OASA 


OA4C 
OASE 
0450 


0452 
OAS4% 
OA56 


0OA58 
0A58 


OA59. 


OASA 
OA5B 
Oasc 
OaSD 
OASE 
OASF 
0A60 
OA6] 
OAG2 
0A63 
0A64 
0A65 
OA66 
OA6T 
OA68 
OA69 
OA6A 
OAGB 
OA6C 
OA6D 
OAGE 

OA6F 

0a70 
OAT72 

OAT2 

OA73 
OATS 
OA75 

OAT6 

OAT? 

OA78 

OA79 
OATA 

0A78 
OATC 

OATD 


DATE 


00 
0 
00 
Le) 


00 
Oo 

00 
0 

00 
00 
00 
00 


00 
09 
00 


00 


00 


00 


00 
00 
00 


00 
0G 
00 


©COOOCOSO eococeooeoeooeoeooeoecoeoeeeooeecoeooce 


EC NO. 


C4000A77 


1804 
&CO40A40 
1801 . 
&CO040A46 
1801 


4CO40A4C - 


1601 


&CO040A52 | 


65000A70 
60000858 


4€ 000868 


65000480 
60000858 
40000868 


65000488 
60000858 
4CO00086B - 


65000889 | 


60000858 


4€00086B8 


65000A8A . 
60000858 
4C00086B 


0000 
0000 _— 
1703. 
0000 
1-01. 
0000 
4FQ3 
0000 
2701 
0000 
2FO1 
0000 
3701 
0000 
OFO] . 
OAT? 
3A00 
0000 
3F0] | 
0000. 
1402 
OAGE 
4E00 


- 0001 


0000 


~ 0000 


1404 
0000 | 
1C00 
OAT6 
1200 
0001 
0000 
0000 
0000 
00cO. 
0000 
0000 
F700 


OLMAY6S 
4156908 


Lo 


t 63751 .CAD BiT SWITCHES 
SRA 6 . DELAY CHANGE 
BSC t OLYNOLE KO DELAY SELECTED 
SRA ). CHECK FOR DELAY 
BSC LL OLAYVI,ZE SELECTED DELAY 
SRA l CHECK OR DELAY 
BSC LL OLAY2sE SELECT:O DELAY 
SRA. l CHECK FOR DELAY 
BSC bt OLAY3CE SELECTED DELAY 
LOX .L1 OELAY SET DELAY FOR 25 SEC 
STX Ll STARTS. SET UP DELAY 
8SC LL RETRN 
e 
DLYNO LOX Ll KOOO LOAD ZERO 
STX Ll START?) SET UP NO DELAY 
BSC tL RETRN 
® 
DLAYL LOX Ll TIME] 
STX L1 START SET UP DELAY 
BSC tL RETRN 
* 
DLAY2 LOX Ll TIME2 
STX £1 START SET UP DELAY 
BSC t RETRN 
s 
DLAY3 LOX C1. TIMES 
STX 1 START+1 SET UP DELAY 
BSC L . RETRN ie 
S : ‘ 
BSS E O.. 
SENSE OC 0 | RESET OSw 
Oc 41703 - : 
SENPT OC  ] 
. oc 41°62 . 
SEN25 OC 8) SENSE 2501 OSw 
. , OC 44F0O3 . 
DISK OC 0 
DC 42701 
PLOT OC . 0 | 
oc 42F01 
PRINT DC 0 
oC 43701 
CONSt OC oo... 
oc 40FO} 
BITSw OC BITS) 
oC 73Aa00 
STOP OC 0 | 
OC /3F01 
FEED OC 0 
oC 41402 
FEEDS OC TABLE 
oC 44E00 
TABLE OC 1 
OC 0 
RESTR OC 0 LAs 
oC 11404 READER START 
CNTARL DC 0 = 
. OC 41C0O ADVANCE TAPE 
READ OC RAREA 
oc 41200 
RAREA BSS | 
BITS1 OC 0 BIT SWITCH SETTINGS 
BITS2 OC 0 LAST DEVICE SELECTED 
BITS3 DC 0 LEVEL ON BITS 
GOCNT OC 0. GOOD PASS COUNT 
CiCcnTt oc 0 COLUMN COUNT 
LECNT OC e] LOOP COUNT 
DELAY OC 4-700 SCOPE LOOP XELAY 
1S5NOV66 1SJuUNOT 
419605 420317 
} | 
ee ee a fsa ee Kant 


PART NO. 


PAGE 


30812240 
34612250 


34812260 | 


3A812270 
34812280 
3A812290 
34812300 


34812310 | 
34812320 — 


34812330 
34612340 
34812350 
3A812360 
34812370 
3A812360 
34812390 
3A812400 
34812410 
3A812420 
3A812430 
3A812440 
3A812450 
34812460 
34812470 


3A812480. 


34812490 
34812500 
34812510 
34812520 
34812530 
34812540 
34512550 
34812560 
34812570 
34812580 


34812590 © 


34812600 


3A812610 


34812620 
34812630 


34812640 | 


34812650 
34812660 
34812670 
34812680 
34812690 
34812700 
34812710. 
34612720 
34812730 
34812740 
348° 2750 
34612760 
34812770 


34812780 | 


3812790 
34812800 
3A812810 
34812820 
34812830 
34812840 
34812850 
30812860 
34812870 
34812880 
34812890 
30812900 
34812910 


PROG ID 
PAGE 


2191266 


10 


03A8-0 
10 





16M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


INTERRUPT TEST 


OATE 
OATF 
OA80 
OAB]- 
OA82 
OA83 
OAB4 
OA8S 
OA86 
OABT: 
OA88 
Oa89° 
OASA 
OABB 
OA8C 
OA8D 
OABE 
OABF 
0a90 
0A91. 
0A92. 
0A93 
0A94 
0A95 
OA96 
OA97 
0A98 
0A99 
OA9SA 
OA9B 
OASC 
OA9D 
OA9SE 
OA9SF 
OAAO 
OAA2 


DATE 
EC NO. 


“oN 


©CCOCCCCOCC COCO CCCODeCOeCCeoCecooooocooceeoces 


0000 
0001 
0000 


-Q001 


OOUA 


0032 — 
~0050 


0064 
OOFA 


~~ 61A8B 


ODEO 
lEEO 
30C0 
1000 
1801 
180A 
1808 
TOES 
707B 
7T06B 
7058 
704B 
TOF4 


- 7004 


70C8 
T0BC 
TO1A 
1009 
7047 
7009 
7083 
709C 
71087 
7033 
TO1LE 
6500 


O1LMAY66 
4154908 


DSwWl 

AD001 
KOOO 

KOO] | 
KO10 

KO050 

K080 

K100 

K250 

KAAX 

TIME] 
TIME2 
TIMES 
NOPIT 
SRAO] 
SPA10 
SRAL} 
MOFYA 
MOrYB 
MOF YC 
MOF YD 
MOFYE 
MOF YF 
MOF YG 
MOFYH 
MOFYJ 
MOF YL 
MDFY2 
MOF Y3 
MDFY4 
MDFYS 
MOF Y6 
MOFY7 
MOFYS 
MDFY9 


OC 
OC - 
DC 
oC 
DC 
DC 
OC 
DC 
DC 
OC 
DC 


0c 


OC 


DC 


oc 
OC 
OC 
MDX 


MDX. 


MOX 
MOX 


MDX | 


MOX 
BD X 
MDX 
MDX 
MDX 
MDX 


MDX 


MDX 
MOX 
MDX 
MOX 
MDX 
MDX 
END 


15NOV66 


419605 


CONSTANT 
CONSTANT 
CONSTANT 
CONC TANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 


ZERO 
l 

10 

50 

80 
100 
250 
25000 


DELAY - 62.5 MSEC 
DELAY - 125 MSEC 
DELAY - 250 MSEC 


41808 


sm OK KOK OO 


15JUN67 


#20317 


BUSY-MOD1 1-1 
GAPIT~M0013-1 
GAP 1T-40014-1 
GAPIT-40D15-1 
GAPIT-MOD16—-1 
GAPIT-M0D1 7-1 
GAPIT-MOC18-1 
GAPIT~M0D1 9-1 
GAPIT-~MODiA-)] 
CKRUN-MOD1i 1-1 

. JUMP-MOD29—1 
MOD22-M002 1-1 
HOP IT-m0D23-1 
HOPI T-MOD24-1 
HOPI T-MOD25-1% 
HOPI T-MOD26-1 
JUMP-HOD27-1 

— JUMS-M0028-1 
BEGIN 


PART NO. 2191268 e 
PAGE 108 


34812920 | 
34812930 | ») 
3a612940 | 
30812950 | | 
34812960 | ) 
34812970 ’ 
34812986. ~ 
34612990 y 
34813000 

34813010 


34813020 ) 


34813030 
34813040 


34813050 ) 
3813060 
348) 3070 


34613080 — yo 


34813090 

34813100 : 

34813110 - 

34813120 

3A6131 30 

34813140 ) 
3A613150 

34613160 

3A613!70 | } 
3461] 3180 

34813190 

34813200 } 
30613210 

34813220 

34813230 ) 
34613240 

34813250 . 

34613260 ») 
34813270 


PROG 1D 03A8-0 
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| 10M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM “ 24 _PART NOW 2191268 
3 | PAGE 11 


INTERRUPT TEST 


CROSS REFERENCE LISTING 


SYMBOL VALUE REFERENCES 

ADDO] OATF OoF9 

avR12. 098) 0644.0985 

BAD12 O7DB 051A.05EA»0634,067C 

BAD14 O7E7 0516 +05EC »0636,067E 

BEGIN 0500 OAA1 

BITSW O0a66 0528 ,053E 9061 3+065B 506432 06E0107AC 5 0850,0909,0918, 
0998,09CF .O9FDeOAZA 

BITSl OAT77 0520» 054040615 2065D.06A5e 06E2 20 7AE 4085240908, 091A, 
0994 +09D1 e O9FF pOA2C »0A66 ‘ 

B1TS2 Oa7s 0530, 0618,0660,06A8 . 3 x 

BITS3. -OAT79 0543,0548 e : 

BUSY 0608 05D6.05F6y0620, 0640 »0668y0688,06DE,0714,0709,09E3- 

| 09E9,09EF +09F5.09FB,0ASF 

BuzyY 0848 084E.0875,087E 

CARDS 0862 08030928, 0940.09552096A2097F 10994 ' 

CHECK . 0876 0873 

CKBIT 0578 OS4A 

CKOOK 07C7 05E8,0632,067A,0710 

CKLOP 053€ 0614,0662,06AA 

CKOVR  cC9CF 0940, 0985 ,09BD,09C5,09CD 

CKROY O87F 0858,0885 3 

CKRUN 070C 06F1,0A98 | 

CLCNT OA7B 0876,087C » 089A, 08AF » OBBF 2 08C 9» U8CD»0806,0905,0914, 
0921 50925 09300093A10945s094F 1095A 909642 096F 50979, 
0984%,098E 

CLERR O8C9 Osc? 

CLRIX O6AE 0552,0783,091F 

CNICK 0998 o718 

CNTIT O9FD 0869: 

CNTOK O8DA 0855,08C3 

CNTRL OATZ2 0648 

CNTOlL QAl2 — 0a0l 

CNTO2 OA18 OA0s 

CNTO3 OALE OAOT7. 

CNTOS O0A24 OAOA 

COLGO O8Aa5 08Aa3 

CONSL OA64 0820 

DELAY OA7D 06E 7,0857,09DF -OA3A 

DISK. OAS5E 0751 

DLAY] OA%&6 OA32 

DLAY2 OAc OA3S _ 

DLAY3 0452, Oa38 

DLYNO OA«0 OA2F 

DLYO1L O9€8 0907 

OLYO2 O9F1 090A 

OLYO3 O9F7 0900 

OSWCK O7FF 05F0.05F2e05FC e05FE 10634106 3C 2 0646 90648, 0682, 0684, 
068E + 0690+ 06EC 60806 

DSwl = OATE O7FF .0804, O80E »087F »0883,088C 

ENOCK OA2A 0A10+0A16,0A1C,0A22,0A28 

ERROR O71A 0718,07B5 

FOCYC 0715 O70B. 0726 +072E sO7E5,O7F1 .O7FN-0818 

FEED OAGA 0600 .06EE 

FEEDS OA6S 0692 

FINSH 07A8 060C -0610- 0654-0658, 069C »06A0 

GAPIT ‘0785 0490+ 9A91 00924 0A93,0A94,0A9590A96,0A97 

GOCNT OATA 06F5.0716.07A2 oC 7465082410863, 0885,08FE,0916 

GOLOP 0554 0584,058E,0598,05A2,05AC»0586 

HOPIT O8DS5 0996,0A9B »OA9C »0A9Ds OADE 

INTOO 08°7 082C 

INTOL 0920 0830,0932 

INTO2 09462 0834,0947 

INTO3 0957 0838,095C 

INTO4 0882 083C .089C 

INTOS 096C 0840,097i 

DATE OLMAY66 15NOV66 15JUN67 PROG ID 03A8-0 

EC NO. 4154908 419605 420317 PAGE ll 
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IBM MAINTENANCE DIAGNUSTIC PROGRAM 


INTERRUPT TEST 


JUMP 
KMAX 
KNTOl 
KNTO2 
KNTO3 
KNTO4 
KO0O0 
KOO] 
KO10 
K050 
KO80 
K100 
K250 
LESS1 
LOOPS 
LOOPO 
LOOP] 
LOOP2 
LOOP3 
LOOPS 
LOOPS 
LPCNT 


MAPIT 
MDFY2 
MDFY3 
MUFYS 
MDFYS 
MDFY6 
MDFY7 
MOF YS 
MDFY9 
MOD1A 
MOD11 
MOD12 
MODL3 
HOD14 
MOD15 
MOD16 
MOD17 
MOD18 
40D19 
*OD20 
4OD21 
MOD22 
MOD23 
MOD24 
MOD25 
MUD26 
MUD27 
MUD28 
MUD29 
MOFYA 
MOF YB 
MOI-YC 
MOFYD 
MOFYE 
MOF YF 
MOFYG 
MOFYH 
MOFYJ 
MOFYL 
NOADR 
NODLY 
NOPIT 
NURDY 
NRDYA 
NRDY6 


DATE 
EC NU. 


0996 
OAST 
O9AF 
0987 
O9BF 
o9cT 
0A80 
OA81 
OAB2 
OA83 
OA84 
OA8B5 
OAB6 
O85 SF 
0574 
0730 
07490 
0750 
0760 
08&1D 
O7bT 
OATC 


05C2 
0A99 
OAQSA 
OA98 
OAgCc 
OA9D 
OA9SE 
OASF 
OAAO 
U7F8 
O6F } 
091D 
0739 
749 
0759 
0769 
07CO 
O7EO 
O7EC 
0826 
0861 
O8A9 
O8CB 
0921 
0938 
094D 
0962 
0977 
o9sc 
OABF 
0A90 
OA91 
OA92 
0A93 
OA94 
OA95 
0A96 
OA97 
OA98 
O7F3 
O9E5 
OA8B 
0892 
O5BE 
0528 


Ol1MAY66 
4154908 
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FOR THE 1130 SYSTEM 


0A99.0A9F ,OAAO 

09C7,.0A24 

099C 

O99F 

O9A2 

O9A5 

09E5,.0A40 

O71E»07A%,086D | 

060A »07A8,0900.09AF ,OA0C ,0AL2 
0987,0A18 

08C} 

0604,064E ,0696,06FD.0722,0871,09AT7 
O9BF ,OALE 

0860-08A7,08D8 

0577,0582 ,0588,0592,059C »05A6,0580 
0580 

0586,058A 

0590,0594 

0594,059E 

05A4,05A8 

OSAE ,0582 

06F7.06F8,071C,0720,072C 10774,0819,0868,086F,087A, 
0907 
O73E»07T4E.075E,076E,07C520827-091D0 
0990 

O8A0 

O8CF 

0927 

093C 

0951 

0966 

097B 

06C5,07A0,07TF6,07FB,0A97 
06F3,0709,070F ,0778,07D3,0A8F,0A98 
0568 

0556,056A,06B7 »,06C9,0737,073C »0784%,0A96 
0554+056C »06B9-06CD,0747.074C 0788 ,0A91 
0556 .056E »068B,0601 .0757,075C oC 78C ,0A92 
0562 .0570,0680.0605,07671076C20790,0A93 
056620572» O6BF ,0609.0794,07BEs07C350A94% 
06C1,0798,07DE,07E3,0A95 

06C3-079C O7EA,OTEF,OA96 

0824 

0867,08A2,0881 .0889,080C,OAQA 
O8AC.086D,.O0BE0,0A9A 

06D] ,.08E4,0A98 

08C5,08E8,0929,0A9C 
O6EC,0936,093E ,0A9D 

08F0,0948 .0953,0A9E 
08F4,.0960,0968 , OASF 
08F8,.0975,097D.0AA0 
08FC,098A,0992,0A99 

0701 

O73A 

O74A 

O75A 

O76A 

07C1 

O7E1 

O7ED 

O7F9 

0776 

0522 05EE,0638,0680 

09D4 

O5F8,068A 

O8seE 

OSBA 

O5C4 


1SJUN67 
420317 


15NOV66 
419605 
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IBM MAINTENANCE DIAGNOSTIC °ROGRAM FOR THE 1130 SYSTEM 


INTERRUPT TEST 


WRDYC 


NUMBR 
NUMCK 
PLOT 
PRINT 
RAREA 
READ 


RESET 


RESTR 
-RETRN 
 RUNCK 


"RUNUK © 
SENPT 
SENSE | 


SEN25- 


SETPT 
— SETUP 
SET25 
SETS2 
SRAQ] 


SRA1O 


SRA1LI 


“START. 


-$TOP 
TABLE 


TEST1 


TIME 


 TAME2 
TIMES 
TOTAL 
VECTO. 
~ vectl 
 vEcT2 
VECT3- 


VECT4 


VECTS 
vECcGO 


VECO] 
VECO2 


 WECOS 


VECO4 


VECOS. 


WAITA 


WAITC. 


WAITE 


WAITG | 
wAITl 
WAIT2: 


wAIT3 
WAITS 


WHAT] - 


wHAT2 
WHATS 


WHICH 


DATE 


EC NO. 


0501 
— O6FD 
0722 
060 

0A62 
OATS 


OATS 
0848 
0A70 


‘0668 


O6FO 


V701 


OASA 
OAS8 


OASC 
O61E 
0829 
0666 


0504 
OABC 


OasD 
OABE 
0857 


~ OA68 


OAGE 
O6E7 


OA88 


~Oae9 


OAS8A 


08721 


0580 


0586 


0590 


059A 
0584 


OS AE 


-0734 


0744 
0754 


O74 
* 0770 


0768 
0912 


Oo7cc 


0501 


0726 


0527 
0817 
0814 


0538 


0588 
05C1 
05C8 
0528 


PAGE 


~05c0 


0606.0650,0698,09A9,09B1 »09H9,09C) 209C9 
0608,0657 ,069A,0685,094B,0983,0988,09C3,09CB 


076} 


O74) 


OA7T4 


-06A5 


0850 

OA3E,0A%S4, 0A4A,0450,0A56 
C708,070E,077C ,O07CF 
070A.0780 
05C1,061E,0731,0822 


(058 8 s05D4-e06DB8 106E920729:0735,% 0745,0755,0765,077 1,» 


O072Cs07C8,07T0C».OTE8sO7F 4, 0801 080A, 081E,084B,0859, 
0881 ,0889,0693,0898, 0863.092E,0942 °0958,096D,0982 
05CB»0666 

05C6 Pe 

O60E ,O7AA,0910 © 

O5CF 


-05BC 


O5F4,0686 

0642 

O63E 

0887,0890, 0895, 0A3C 50442 ,0A48,0A4E,0A54 


0788 


OA6C 


~—6 0508 ,OS5F A, 0602 10622 50644, 064C 5 066A 068C , 0694, 0808, 
~~ 0812,0815,09E1 -09E7,09ED,09F3,09F9 


09EB ,0A%6 
O9F1,0A4C 
O9F7,0A52 


OAOE »CA14,0A1A.0A20,0A26 


0546 
 O57E 


0540 


0579 


0550 


O57C 


0502 ,050C .0626-066E,0733 


 0506,050E .0628,0670,0743 


0504 ,05E0,062A,0672,90753, 
0506 »05E2,062C»0674,0763) ~~ 


0512 05E4, 06260676, O66 190665 60702.0708 
~— - 05216,05E6,0630-0678,07BA 

 0656,969E ,07861 .0902,090E 

O7CA 


050A, 062450660 00724 
052450575 


O6FF 
0810 


0539 
0536 


0533 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


‘CE UTILITY PROGRAMS 


1130 ON LINE DISK ADJUSTMENT PROGRAM 


+ 


le PURPOSE DE DI RES BE 2K a SIC SO OKC 2S aK aE OR A a OS 2A HRC aK a ae a ae a ak a aK A a aK ae ae ak ae ak a aK ak aK a 
THE 1130 DISK ACCESS PROGRAM WAS DESIGNED TO BE 
USED WITH THE ACCESS ADJUSTMENT PROCEDURE FOUND 
IN THE SDS MAINTENANCE MANUAL. 


Hoe eH 


THE PROGRAM WILL MOVE THE CARRIAGE BETWEEN 
TRACKS 2 AND 200; AND COMPARE SECTOR ZERO 
ADDRESSES AT THOSE TRACKS. 


Mode te eH 


THE SEEK OPERATION CAN BE SELECTED IN EITHER 10 
OR 20 MILL MODE. ; 
BRAS AS AE SK RE OK AS AE EE OK OK OK 


2. REQUIREMENTS Sree 


ee es 


THE CeEs MUST HAVE A 1130 SYSTEM WITH CARD © 
READER OR PAPER TAPE INPUT. 


RY 4 at 
s tt oF 


THE CARD READER PROGRAM CONSISTS OF 4 CARDS. 
THE 1ST CARD IS AN IPL LOADER, -THE OTHER 3 
ARE PUNCHED IN 8/8 FORMAT AND CONTAINS THE 
MAIN PORTION OF THE PROGRAM. 


Hote tt 


ay USE PROCEDURE He Hea a a ak ak ak ak ae ak a ak ak ak a ak ak ake ae ae ae ak oe ak 


phe ste yle ale os, we ate ate ale ale ab ale we hs ade ahs als ale ale gte ale ate 
BE AE KAS AE AE OE AE OK OK OE OK AK AS AE OS AS OK OR OIE OS OK EO 


od He 4 


Ae LOAD PROGRAM IN READER AND MAKE READER 
READYe ADD A BLANK CARD. 


3e1 SETUP AND 
START 


B. DEPRESS RESET AND PROGRAM LOAD PUSH 
~  * BUTTONS. PROGRAM WILL STOP AT WAIT O. 


Ce AT WAIT Oy ENTER DISK DRIVE AREA CODE OF 
DESIRED DRIVE IN CONSOLE BIT SWITCHES 
O THRU 4 AND CLEAR BITS 5 THRU 15. 


se 3 36 46 3 ae tb oe Ot 


DRIVE . BIT SW SETTING 
OS.4.6:6 466 Ces eeew wanes CO0G 
Lecsccccseccvccces / 8800 
Zeoeccseccsescessvees/9IQND0 
Sos as sa 0% bes ecee0 4/9800 
Geocsceccceesceses /ANQ00 


De DEPRESS START PUSH BUTTON. 


BEAR AE AE SE OE AC BE BE IC AE A OE A OE OG AE OE BE IE AE AE IE AE AE SE AC A OE AC FE OE A OE EE OIC OE EK OE OK OE BK 3 


3% 


322 OPERATION 


a 


THE PROGRAM WILL START QUT IN 20 MILL MODE. 


THE CARRIAGE WILL SEEK HOME, GO.TO TRACK 2, 
READ SECTOR ZERO AND COMPARE FOR TRACK ADDR. 2 


A GOOD COMPARE CAUSES THE CARRIAGE TO GO TO 
TRACK 200, WHERE SECTOR ZERO IS READ AND 
COMPARED FOR TRACK ADDR. 200 


He dt Ht 4e Mt ae 4 


A GOOD COMPARE WILL CAUSE THE CARRIAGE TO GO 
BACK TO TRACK 2 AND REPEAT ABOVE OPERATION. 


IF A COMPARE ERROR IS DETECTED, AN: ERROR WAIT 
ENCOUNTERED. SEE ERROR EAN sees 3)e 


TO STOP PROGRAM, DEPRESS IMMEDIATE. STOP. 
TO START PROGRAM, DEPRESS START. 
TO CHANGE FROM 20 MILL MODE OPERATION TO 10 


MILL GPERATION, OR FROM 10 MILL OPERATION TO. 
20 MILL OPERATION: Ae PEE IMMEDIATE STOP. 


i i ee i a ee i 


DATE ——«1SDEC67 


EC NO. 420400 


PART NO. 


PAGE 


30A00020 
30A00030 
30400040 
30A00050 
30A00060 
30400070 
30A00080 
30A00090 
30A00100 
30A00110 
30A00120 
30A00130 
30A00140 


© 30A00150 


30A00160 
30A00170 
30A00180 
30A00190 
30A00200 
30A00210 
30A00220 
30A00230 
30A00240 
30A00250 
30A00260 
30A00270 
30A00280 
30A00290 
30A00300 
30A00310 
30A00320 
30A00330 
30A00340 
30A00350 
30A00360 
30A00370 
30A00380 
30A00390 
30A00400 
30A00410 
30A00420 


30A00430 © 
30A00440 


30A00450 
30400460 
30A00470 
30A00480 
30A00490 
30A00500 
30A00510 
30A00520 
30400530 
30A00540 
30A00550 
30A00560 
30A00570 
30A00580 
30A00590 
30A00600 
30A00610 
30A00620 
30A00630 
30A00640 
30A00650 
30A00660 
30A00670 


30A00680 
30A00690 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


CE UTILITY PROGRAMS 


1130 ON LINE DISK ADJUSTMENT PROGRAM 


DATE © 


EC NO. 


3.3 WAITS 
43000 


ERROR WAITS 


/30F1 


/30F2 


/30F3 


364 TERMINATION 


15DEC67 
420400 


oh 
a 
ale 
or 
we 
a 


SJ 


U) U 2, ! §, 
BS FI FHS AE AK AE HE ES AS BE AE OE ANE 2 BE OS OE OK SK BIS ES SIL AK OK OS OS IC IE AE OS OE IE OK BE RE OIE EK IE AE OK IS OIC OE 3 I OI OIE OK 


Be DEPRESS PROGRAM RESET. 
Ce DEPRESS START. 


* ENTER DISK DRIVE AREA CODE. ( SEE 3.1 C ) 


se 
“a 


ste gle ah 5 Fd 
“- 


ate bd whe 
BK AE AK AE AE YS AE AE OE OK ca 


* THE ADDRESS 


IF CARRIAGE 


ah 34 84 32 2 a4 «6h 
yh ane | Sr | SO 2 3¢ hy 7 


IF CARRIAGE 


we 

x 

* REWRITE. 

2 

= 

p <4 

* 

a4 

D> 4 

_ 

bad 

+4 

a 

* 

7% Ae 
* Be 
x Gs 
* 

* 


* THE ADDRESS 


IF CARRIAGE 


IF CARRIAGE 
REWRITE. 


Ae 
Be 
Ce 


a a 2 Ss | a SO SS Sf 


Be BE IE BE OK OR OK OK OK OE AE 


ch a a a SO 


* TO TERMINATE EROGRAn. DEPRESS IMMEDIATE STOP. 


ats ole wd te we ate ale ale ate Se ale ale ale Je sic te Se gle ste ale aly ate gle she ale ol 
AS FE FE SAS AR AR OR OR AR AS AE HR 8 OR IS aR OR SK OR OK OE 8 OK OK OK OS AE 


BE ME RAE RE OK BK BE NE OS OK SE OK SIE NE BC OK EE EE BE A OK OK AE OS 2g KC a 3 


BEE A AE AE OK OK OE AE AK OK AE AK AE CE OK OE OS OK OK 2s MEE aE RE 


we alo ste ole ss 


BE AS EK AE OK 3K AS 


OF TRACK 2, SECTOR ZERO WAS READ 
AND FOUND INVALID. 


CHECK IF CARRIAGE IS SETTING AT DETENT Ze 


IS *NOT* IN CORRECT DETENT, 


DEPRESS START TO CONTINUE ADJUSTMENT. 


IN CORRECT DETENT, DO A SECTOR 

KK AS BK AE AK OE AE AS SAS HE KE IS NE OE OS Bo AS RE OE AK AK AK NS AE AE EC OE 
me x < CAUTION: peat gtactese MRK HK 
SE AE BE AK BK OK AE IS OE OIE OE OK OK OC OK OK Oe oe OK as oe FE 


Ee 
te 
< oR 


~/ 
8 


oT 


ONLY USE TRACK 2 REWRITE OPTION 
WHEN SETTING AT WAIT /30Fl.e 


% 


REWRITE OPTION WILL DESTROY 
ORIGINAL SECTOR DATA. 


He o3t 4b te tt te Oe - 


ede ae de de tt 


KB EAE BRE a a RB aK Ba aK 
LOAD I REG TO /0043. 

PLACE CONSOLE SW IN RUN. 

DEPRESS START. © 

AE RE AE BK AC aK aK He 2 2 ak a ak ak ak aK 


OF TRACK 200, SECTOR ZERO WAS READ 


AND FOUND INVALID. 


CHECK IF CARRIAGE IS SETTING AT DETENT 200. 


IS 'NOT*' IN CORRECT DETENT, 


DEPRESS START TO CONTINUE ADJUSTMENT. 


IS IN CORRECT DETENT;, DO A SECTOR 

2B BK OK a a a a aK aK aK a a ae aa a a aa a a a aK aK a ak ak a ak a ak ak ak 
2 aR OK ak a ak ak ake a aR CC AUT LON sok ao ook ook ae ok ak ak ok 
BE BS SO a a a IC a ae a ak a aK HS ae ae a a a aK ak a aK ak aK a a 
* x 


* ONLY USE TRACK 200 REWRITE OPTION * 
* WHEN SETTING AT WAIT /30F2. * 
%* * 
* REWRITE OPTION WILL DESTROY * 
* ORIGINAL SECTOR DATA. * 
* x 
AR FR RE AR AE BE A NE I AS KO EK IE AE BK OK 2 OK AK OK We A He He A oe a ak ake a ak ok ak ok 


LOAD I REG TO /0046. 
PLACE CONSOLE SW IN RUN. 
DEPRESS START. 


BE AE RE AE A AE AE AE AE EAE OK OK OK OK OK a oe aK OK 


LOST INERRUPT WHILE READING IN PROGRAM. 


ea a BR AE RE AE 2K SRE AS OK AE OK OR OR OK IE AK OK OK HE aK A A a 


PART NO. 


PAGE 


30A00700 


30A00710 


30A00720 
30A00730 
30A00740 


-30A00750 


30A00760 
30A00770 
30A00780 
30A00790 
30A00800 
30A00810 


30A00820 > 


30A00830 
30A00840 


-30A00850 


30A00860 
30400870 
30A00880 
30400890 
30A00900 
30A00910 
30400920 
30400930 
30400940 
30400950 
30400960 
30400970 
30400980 
30400990 
30A01000 
30A01010 
30A01020 
30401030 
30A01040 


~ 30A01050 
~30A01060 


30A01070 
30A01080 
30A01090 


30A01100 


30A01110 


30A01120 


30A01130 
30A01140 
30A01150 
30A01160 
30A01170 
30A01180 
30A01190 


30A01200 


30401210 
30401220 
30401230 
30A01240 
30401250 


30A01260 


30A01270 


30A01280 © 
-30A01290 


30A01300 
30A01310 
30A01320 
30A01330 
30A01340 
30A01350 


30A01360 
- 30401370 | 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 


CE UTILITY PROGRAMS 


1130 ON LINE DISK ADJUSTMENT PROGRAM 


DATE. 
EC NO. 


4 = 


0007 


~O00F 


0014 


0027 


5 COMMENTS 


0000 


0000 


0001 
0002 
0003 
0004 
0005 
0006 


0008 
0009 
OOOA 
000B 
000C 
000D 


OOOE 


0010 
0011 
0012: 
0013 


0015 
0016 


qoooococoo°oceo oooqooocooocnwmoqooqooo oO 


0017 
0018 
0019 
OO1A 
001B 
OO1C 
001D 
OO1E 
OO1F 
0020 


DO00OCCOOCOO°O 


0021 
0022 
0023 
0024 
0025 
0026 


CO00CCO 


0028 
0029 
002A 


Coco 


15DEC6 
420400 


PRINTOUTS 


603B 


0000 
0000 


B818 
0000 


4800. 


0001 
0004 
OOOE 
2808 
003D 


0003. 


O00E 
0034 
0000 
O8F2 


4850. 


7001 
7005 
4848 
0000 
7011 


O8F1l - 


30F3 
O8EB 
COEA 
FOEB 
DOES 
4820 
TOF9 


COE 


1808 
FOEO 


0O0D4 
003B 


COFE | 
80E1. 


DOFC 
7OFO 


COE3 
90DD 


DOE1 | 


4808 


q ¥ 


* 
Se sie A oe ok ok ok a ak ok 


OK OE REE AIS OK RE A OK AE OK OE 21S OE OE 


% NONE 
xX 
BK SK 2 OE 2S EK AE RE OS OH OK IE EK AE OC SE OK OK OK OK OK ofc ai oe ake ake ake ale oe ke ote sie ok aie ak ote aie ate sk of ake He ok 
x 
* TO RERUN PROGRAM ON ANOTHER DRIVE, PROGRAM MUST 
* BE RELOADED. 
ed 
BER Ae RE IKE OK Be ai AC SHE EE OK IE OEE OC OK OS OE OK OK OK i oi ok ok aks oe ote ake ok ads ak ofc okt ok ok oft ok ok ote ofc ok ak okt ate ak 
ABS 
ORG 0 
x 
BEAK ENE AE OE OE I RE OK OK YS AS OHS SC Ss OS a ac ok os a oe oe ie ok oe ate oe ot als ate ak a ok ok ote ok oc ok ok ok 
* oe 
* 3 CARD LOADER PROGRAM o 
BEAK BE OE OS FE OK AR SE IK 3K OK BE OK OE IE OE OE I IE BI OE KO ES ORE AK RE RE HE IC A EEO KE KE Oe 
* . 
BGN  LDX BUILD GO BUILD IOCCS 
% LDX PROGM IF P.T. 
DC Han CARD RD IN AREA 
DSW —OC | 
DC /B818 -IOCC-SENSE/RESET DSW 
RDIN DC mk COL RD IN ADDR 
DC /4800 IOCC-READ COLUMN 
ONE ODOC i CONSTANT 1 
FOUR DC 4 CONSTANT 4 | 
RDCRD DC INT RDR INTERRUPT ADDR 
DC /2808 IOCC-START READER 
DC INT2 DISK INTERRUPT ADDR 
LAST OC 3 LOADER CARD COUNT 
De INT READER INTERRUPT ADD. 
DC INTS PROG STOP INTERRUPT 
* 
INT DC mK - READER INTERRUPT 
: X10- DSW * SERVICE ROUTINE 
BOSC - x } 
MDX INTL BR IF NOT RESPONSE 
MDX WAITIE1 BR IF RESPONSE 
INT1 BOSC & "RESET OP COMPLETE 
DC 
MDX ENCRD BR, END OF CARD 
X10 RDCRD START READER 
e 
WAITI WAIT -/D WAIT FOR INTERRUPT 
X10 RDIN RD COL. ONE-HALF WD 
LO RDIN Xx 
EOR ONE SW READ/IN AREA, EVN 
STO RDIN * COLS. IN O, ODD IN 
BSC Z CHK BOTH HALVES IN 
MDX WAITI NOy WAIT 2ND HALF 
LD BGN YES, PACK BOTH HAVES 
SRA 8 * | 
EOR BGN&1 & 
STORE DC /00D04 1ST WORD OF STO L 
DC. BUILD 2ND WORD OF STO L 
LD STORE&1 SET UP NEXT STORE 
A ONE * ADDRESS 
STO STORE&1 % | | 
MDX WAITI GO WAIT FOR NEXT COL 
Se: 
ENCRD LD LAST CHK FOR LAST CARD 
S ONE LOADED , 
STO LAST 2% 
BSC & * 


PART NO. 


PAGE 


30A01380 


* 30A01390 


30A01400 
30A01410 
30A01420 
30A01430 
30A01440 
30A01450 
30A01460 
30A01470 
30A01480 
30A01490 
30A01500 
30A01510 
30A01520 
30A01530 
30A01540 
30A01550 
30A01560 
30401570 
30A01580 
30A01590 
30A01600 
30A01610 
30A01620 
30401630 
30A01640 
30A01650 
30A01660 
30401670 
30A01680 
30401690 
30A01700 
30A01710 
30A01720 
30A01730 
30A01740 
30401750 
30A01760 
30A01770 
30A01780 
30A01790 
30A01800 
30A01810 
30A01820 
30A01830 
30A01840 


30A01850. 


30A01860 
30A01870 
30A01880 
30A01890 
30A01900 
30A01910 
30A01920 
30A01930 
30A01940 
30A01950 
30A01960 


30A01970 


30A01980 
30A01990 
30A02000 
30A02010 


‘-30A02020 


30A02030 
30A02040 
30A02050 
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1130 ON LINE DISK ADJUSTMENT PROGRAM 


DATE. 


EC NO. 


002B 0 


002C 
002D 
OO2E 
OO02F 


ooo °o 


0030 
0031 
0032 
0033 


oOO00 


0034 
0035 
0036 
0037 
0038 
0039 
OO3A 


oooo0q0o°o 


0038 
003C 
003D: 
003E 
003F 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 


ooocoooooooc;”o 


0048 


003B 0 


003D 0 
OO3E O 
OO3F O 


0041 0 
0042 0 


0043 0 
0044 0 
0045 0 


0046 0 
0047 0 


0048 0 
0049 0 
004A 0 
OO04B 0 
004C 0 


004D 0 
OO4E 0 
OO4F 0 
0050 0 


I5DEC6 
420400 


6030 


COF5 
90D9 
DOF3 
TOE6 


C83F 
D8CE 
3000 
7019 


0000 
083C 
603B 


0000 


0000 
0000 
0000 


COC? 
1803 
DOC5 
COCA 
1801 
DOC8 
COc3 
1802 
DOC1 
CODC 
1008 
DODA 
6016 


4CCO 


0000 
0835 
4040 


0000 
0000 


0832 
4045 
7002 


0831 
4042 


0833 
4040 
0833 
403E 
1048 


6210 
0835 
C273 


ESFi- 


7 


0034 


OO8C 


LDX 


LD 
S 
STO 
MDX 


PROGM -LDD 
STD 
DC 
MDX 


INT5 DC 
X10 
LDX 
DC 
DC 
DC 
DC 


BUILD LD 
SRA 
STO 
LD 
SRA 
STO 
LD 
SRA 
STO 
LD 
SLA 
STO 
LDX 


PROGM 


STORE&1 
FOUR 

STORE&1 
WAITI-1 


RESRT 
BGN 
/3000 
AGAN1-2 
SPDSW 
INT5A 


DSW6l 
3 

DSWél 
RDCRD&1 
l 
RDCRDE1 
RDIN&1 
2 | 
RDIN&1 
STORE 

8 

STORE 
WAITI-1 


YES, BRANCH TO PROG 


NO; SET UP NEXT READ 
* IN AREA 


GO READ NEXT CARD 


SET AREA CODE IN 
BIT SWITCHES 


4 


Hoe eH 


PROGRAM STOP 
INTERRUPT ROUTINE 


3¢ 3G 4 
¢ 


BUILD SENSE DSW 

HK KK ARE OK 3 OK OC OK ok ok ok oi ee ok ok ok ok 
NOTE 

INSTRUCTIONS FROM 

BUILD THRU INTS5A 

DO NOT APPEAR ON 

PAPER TAPE 


ale aly al. al, al ~ 
we ok Ra A ak ak ak ak ak a ak ak ak ak ak ok 


+ 


He do 3 Ht Ht 


€ $6 $6 46 4 4e tt ae 
3 


GO START READER 


BEE AE BI OK SK OE aK Sa AE A aK aK aK ae IC IE NC OK a aK aK SIC aK a A a a a a ae aK fe aK aK a a aa fe ak ak 
5 , 


ORG 


BUILD 


PR A BE BE AE AE SK OK SK AK AK OK BS RE OS OC EC AC OK 2 2 aK aK aie a a ok cok a 2 aK ok ale ake akc ak ak ak ak ak ake akc ok 


* 
< 
* 


BE RE AK 2K OK OS BE OK OE OE OK OK OK 


se 


~INT5A BOSC I 


INT2 DC 
XIO 
BOSC L 
xc 
TOGGL DC 
AREA DC 
b -4 


WTTWO XIO 
BSI 
MDX 

WTHND XIO 
BSI 

* 

SKHME XIOQ 
BSI 
X10 
BSI 
MDX 


a 


LDX 
X10 
AGAN1 LD 
OR 


2 


DISK ADJUSTMENT PROGRAM 


* 
TEE FR RE RE NE OK AE ASE AR AK AR ae oe OK Se 2K OK i at 2 ak 2k oe oc ok ok 


INT5 


SNDSW 
TEST&2 


HOME 
TEST 
TRK2 
TEST 
CHCK2 


16 
RDSPS 
SNDSW-1 
AREA 


“EXIT TO RETURN 


** DISK INTERRUPT 
* ROUTINE 


MODE TOGGLE | 
CURRENT AREA CODE 


* WRITE ADDRESS AT 
* TRACK 2 


-* WRITE ADDRESS AT 


* TRACK 200 
* GO HOME 


** GO TO TRACK 
aan 


3% ott 3e 6% 
3 


= * 
*. * SET AREA CODE ~ 


% Ht 
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30A02060 
30A02070 
30A02080 
30A02090 
30A02100 
30A02110 
30A02120 
30A02130 
30A02140 


-30A02150 


30A02160 
30A02170 
30A02180 
30A02190 
30A02200 
30A02210 
30A02220 


30A02230 


30A02240 
30A02250 
30402260 
30A02270 
30402280 
30A02290 
30402300 
30402310 
30A02320 
30A02330 
30A02340 
30402350 


30A02360 


30A02370 
30A02380 
30A02390 
30A02400 
30A02410 
30A02420 
30A02430 
30A02440 
30A02450 
30A02460 
30A02470 
30A02480 
30A02490 
30A02500 
30A02510 
30A02520 
30402530 
30A02540 


30A02550 


30A02560 
30A02570 


~ 30A02580 


30A02590 
30A02600 
30A02610 
30A02620 
30A02630 
30A02640 
30A02650 
30A02660 
30A02670 
30A02680 
30A02690 
30A02700 
30A02710 
30A02720 
30A02730 
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1130 ON LINE DISK ADJUSTMENT PROGRAM 








0051 0 D273 STO SNDSwW-1 * % INTO IOCC 30A02740 0093 0 73FF MDX co es 30A03420 
0052 0 72FE MDX ~—2 Ok 30A02750 0094 0 7OFC MDX CMND2 30A03430 
0053 O 7OFB MDX AGAN1 sek 30A02760 0095 0 O8E4 CHCK2 XIO READ 30A03440 
0054 0 T0F3 MDX SKHME * 30A02770 0096 O 40F3 BSI TEST 30A03450 
* | 30A02780 0097 0 COOA LD INPUT&l 30A03460 
0055 O COEB ONWDO LD TOGGL * 30A02790 0098 O FOEE EOR OUTO261 READ/COMPARE 30A03470 
0056 0 4C20 BSC ONWD1,Z ** BR IF 10 MIL MODE 30A02800 0099 0 4C18 BSC ONW DO, &—- ADDR AT TRK 2 30A03480 
0058 0 CO1B LD SNDSW Ok 30A02810 009B 0 30F1 DC /30F1l ERROR, DID NOT 30A03490 
0059 0 D026 STO TWHND x Ox 30A02820 009C O 7OAB MDX SKHME COMPARE 30403500 
005A 0 D027. Sto TWO 7 2 30A02830 om 30A03510 
005B 0 6201 LDX 1 x xe 30A02840 009D 0 COA3 RSTRT LD TOGGL 30A03520 
O0O5C O 6301 LDX ] * * SET PROPER 30A02850 OO9E O FOE? EOR OUTO2 fF CHANGE MODE 30A03530 
005D 0 7006 MDX CMND1 * * MODE 30A02860 OO9F O DOAL STO TOGGL 30A03540 
OO5E 0 6201 ONWD1 LDX 21 * 30A02870 OOAO O 7OA7 MDX SKHME 30A03550 
 OO5F O 6A20 STX 2 TWHND % OK 30A02880 * : : 30A03 560 
0060 0 6A21 STX 2 Two * ok 30A02890 OOA1l O 0002 INPUT DC 2 INPUT AREA 30A03570 
0061 0 C012 LD SNDSW fata 30A62900 O0A2 0002 BSS 2 = 30A03 580 
0062 0 DO9F STO BGN&2 * 30A02910 O0A4S 0000 END BGN 30403590 
0063 0 DOOF STO BGN&3 * 30A02920 NO STATEMENTS FLAGGED IN THE ABOVE ASSEMBLY 
2 30A02930 | 
0064 0 0818 CMND1 XIO TWHND. * : 30A02940 
0065 0 4024 BSI TEST ** GO TO TRACK 200° 30A02950 
0066 O 72FF MDX -1 a aK | 30A02960 
0067 O TOFC MDX CMND1 * 30A02970 
0068 0 0811 X10 READ * 30A02980 
0069 0 4020 BSI TEST eK 30A02990 
006A 0 C037 LD INPUTE1 OK | 30A03000 
006B 0 FOLD EOR OUT2061 * * READ/COMPARE 30A03010 
006C O 4C€18 BSC CMND2 ,&- * * ADDR AT TRK 200 30A03020 
OO6E 0 30F2 DC /30F2 #3 ERROR, DID NOT 30A03030 
OO6F O 70D8 MDX SKHME * COMPARE 30A03040 
| : * 30A03050 
0070 0000 BSS” | 30A03060 
0070 0 4C00 RESRT BSC. RSTRT MODE CHANGE SET/UP 30A03070 
0072 0 0000 SPDSW DC 30A03080 
0073 O 3FOL DC /3FOl IOCC-SENSE RESET (5) 30A03090 
0074 0 O0C6 SNDSW DC 198 CONSTANT 198 30A03100 
0075 0 0701 DC /0701 IOCC-SENSE/RESET DSW 30A03110 
0076 0 0086 WRTO2Z DC OUTO2 30A03120 
0077 0 0500 DC /0500 IOCC-WRITE TRACK 2 30A03130 
0078 0 0088 WRT20 DC OUT20 30403140 
0079 0 0500 DC /0500 IOCC-WRITE TRACK 200 30A03150 
007A O OOAL READ DC INPUT 30A03160 
007B 0 0600 DC /0600 IOCC-READ ADDRESS 30A03170 
OO7C O OOCA HOME DC 202 | 30A03180 
OO7D 0 0404 DC 40404 IOCC-SEEK HOME 30A03190 
OO7E 0 0002 TRK2 DC 2 30A03200 
OO7F O 0400 oc /0400 IOCC-GO TO TRK 2 30A03210 
0080 O OOOO TWHND DC km | 30A03220 
0081 0 0400 DC /0400 IOCC-GO TO TRK 200 30A03230 
0082 0 0000 TWO DC HK | 30A03240 
0083 0 0404 DC /0404 - IOCC-BACK TO TRK 2 30A03250 
0084 0 0042 RDSPS DC AREA 30A03260 
0085 0 3A00 DC /3A00 IOCC-READ BIT SWS ~30A03270 
0086 0 0001 OUTO2 DC 1 WRT TRK 2 TABLE 30A03280 
0087 0 0010 DC /0010 * 30A03290 
0088 0 0001 OUT20 DC l WRT TRK 200 TABLE 30A03300 
0089 0 0640 DC /0640 * 30A03310 
. * 30A03320 
008A 0 0000 TEST DC Kak * 30A03330 
OO8B O O8E8 X10 SNDSW 2x 30A03340 
0O8C O 180D SRA 13 * * CHECK FOR FILE 30A03350 
008D 0 4804 BSC E * 2% READY 30A03360 
OO8E O 7OFC MDX TESTE] - x 30A03370 
OO8F 0 4C80 BSC TEST * 30A03380 
| * 30A03390 
0091 O8FO CMND2 XIO TwO Xe 30A03400 
0092 4OF7 BSI TEST * GO TO TRACK 2 30A03410 
DATE 15DEC67 PRUG ID O30A—% DATE 15SDEC67 PROG ID O30A-* 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM. 
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1130 ON LINE DISK ADJUSTMENT PROGRAM 


CROSS REFERENCE 

NAME VALUE REFERENCES 

AGAN1 O004F 0033,0053 

AREA 0042 0050,0084 

BGN 0000 001E70020,0031 ,0062 ,0063,00A4 

BUILD 003B 0000,0022 

CHCK2 0095 004C 

CMND1 0064 005D,0067 

CMND2 0091 006C,0094 

DSW 0002 O00F,003B,003D 

ENCRD 0027 0015 

FOUR 0007 002D 

HOME OO7C 0048 

INPUT OOA1l 006A,007A,0097 
INT. OOOE 0008,000C 

INT1 0013 0011 

INT2 003D OO0A 

INTS 0034 000D,003B 

INTS5A 003B 0036 

LAST 000B 0027,0029 

ONE 0006 001A,0024,0028 
— ONWDO . 0055 0099 

ONWD1 OOSE 0056 

GBUTO2 0086 0076,0098,009E 

O8UT2O0 0088 0068,0078 

PROGM 0030 0028 

RDCRD 0008 0016,003E,0040 

RDIN 0004 0018,0019,001B8,0041 ,0043 

RDSPS 0084- O04E | 

READ OO7A 0068,0095 

RESRT 0070 0030 

RSTRT 009D 0070 

SKHME 0048 0045,0054,006F ,009C,00A0 

SNDSW 0074 003E,004F,0051,0058,0061,008B 
-SPDSW 0072 0035 © 

STORE 0021 0023,0025,002C,002E ,0044,0046 
TEST O08A 003F,0044,0047,0049,004B;0065 4006 
-TOGGL 0041 0055,009D,009F 
— TRK2. OO7E 004A 
- TWHND 0080 0059,005F,0064 

Two 0082 005A,0060,0091 | 

WAITI 0017 0012,001D,0026,002F ,0047 

WRTO2 0076 0043 | : 

WRT20 0078 0046 

WTHND 0046 

WITWO 0043 


END OF ASSEMBLY 
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